COGQ90 - Lanciatore stampa riepilogo costo scarti (personalizzata)
Intestazione
| Campo |
Valore |
| Programma |
COGQ90 |
| Titolo |
Riepilogo Costo Scarti (lanciatore programma personalizzato) |
| Tipo |
Programma lanciatore / wrapper |
| Menu |
Magazzino > Produzione > Cicli di Lavorazione > Stampe > Riepilogo Costo Scarti |
| Sorgente |
cbl/cogq90.cbl |
Scopo e logica generale
COGQ90 e' un wrapper estremamente piccolo: non implementa logica di business propria, ma seleziona e chiama il programma di stampa scarti aziendalmente personalizzato. Compone dinamicamente il nome del programma da chiamare concatenando k-program-id (COGQ90) con la sigla az-personal letta dall'archivio azienda; se il file aziendale non esiste o non e' presente az-personal, ricade sulla variante "NO" (standard).
In assenza di entrambe le versioni viene mostrato un messaggio di errore all'utente.
Flusso principale
a000: init, lettura azienda (rd-azi).- Composizione
name-prog: k-program-id + az-personal (es. COGQ90 + sigla cliente).
call name-prog using stringhe. Se on overflow (programma non trovato) -> salto a a05-standard.a05-standard: prova COGQ90 + "NO". Se anche questa fallisce, mostra messaggio "Manca programma x eseguire Visualizzazione!!".a10-cancel: cancel name-prog, chiusura.
File e tabelle acceduti
| File logico |
Modalita' |
Uso |
| FEURTAB |
Input |
Tabella nomi file |
| (cogq90.fd: archivio azienda) |
Input |
Lettura az-personal per individuare la sigla personalizzazione |
Copybook inclusi
cogq90.select, cogq90.fd, cogq90.wrk, cogq90-01.scr, cogq90.decla, cogq90.prcwstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy, cogazien.cpy- Linkage:
wcont.cpy, wcont1.cpy
Programmi chiamati (CALL)
| Programma |
Scopo |
COGQ90 + sigla personalizzazione |
Variante aziendale della stampa (es. COGQ90XYZ) |
COGQ90NO |
Variante standard (fallback) |
Logica di business
- Schema standard "stampe personalizzate" del gestionale: il programma di menu e' solo un dispatcher su variante customer-specific.
az-personal viene letto da COGAZIEN e usato come suffisso per il nome del programma compilato.- L'
on overflow della CALL gestisce il caso di programma compilato assente nella runtime.
- Tutta la logica di parametri, output e file accessi e' contenuta nel programma chiamato; questo dispatcher non ha proprie schermate ne' impatto sui dati.
- Nota: dichiarato come subroutine (usa
mmsubw.cpy e z-99-exit-subroutine con exit program).
Storico modifiche
- Pagina creata in autodoc 2026-05-16.