COGO80 -- Riepilogo per Ordine (Lanciatore)¶
Sorgente: cbl/cogo80.cbl | Program-ID: COGO80 | Tipo: Lanciatore
Menu: Ordini > Clienti > Stampe > Riepilogo x Ordine, Ordini > Fornitori > Stampe > Riepilogo x Ordine
Scopo¶
Lanciatore per la stampa riepilogo ordini per cliente/fornitore e numero. Determina il tipo (clienti o fornitori) dal parametro wo-parametro e delega l'elaborazione a COGO80C (clienti) o COGO80F (fornitori).
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| FEURTAB | Tabella sistema | Input | Tabella di sistema |
I file specifici dell'elaborazione sono gestiti dai programmi richiamati (COGO80C / COGO80F).
Copybook utilizzate¶
| Copybook | Descrizione |
|---|---|
| cogo80.select | SELECT dei file |
| cogo80.fd | File Description |
| cogo80.wrk | Working storage generata |
| cogo80.prc | Procedure generate da Screens |
| cogo80-01.scr | Screen section |
| cogo80.decla | Declaratives |
| k-u10.cpy | Costanti COGU10 |
| wrk-u10.cpy | Working storage COGU10 |
| utils50.cpy | Interfaccia COGS50 |
| utils52.cpy | Interfaccia COGS52 |
| utils54.cpy | Interfaccia COGS54 (gestione stampa) |
| utils65.cpy | Interfaccia COGS65 (ricerca anagrafica) |
| utilu10.cpy | Interfaccia COGU10 |
| util021.cpy | Interfaccia utility 021 |
| wcont.cpy / wcont1.cpy | Linkage section |
| cogazien.cpy | Dati azienda |
Struttura del programma¶
Variabili principali¶
w-tipo: "C" per clienti, "F" per fornitori.name-call: nome del programma da richiamare ("COGO80C" o "COGO80F").k-chr-stampa: 80 colonne di stampa.
Flusso principale¶
- Inizializzazione (
apri): inizializza il programma, determina il tipo dal parametrowo-parametro("F" = fornitori, altrimenti "C" = clienti). - Delega : chiama
COGO80CoCOGO80Ftramite CALL dinamico passandostringhe(area di comunicazione). Al ritorno esegue CANCEL del programma richiamato. - Chiusura (
fine/z-chiudi): chiude i file e la finestra.
Chiamate esterne¶
| Programma | Modalita' | Scopo |
|---|---|---|
| COGO80C | CALL | Stampa riepilogo ordini clienti |
| COGO80F | CALL | Stampa riepilogo ordini fornitori |
Note¶
- Il programma e' un puro lanciatore: non contiene logica di stampa ne' parametri di selezione propri. Tutta l'elaborazione e' delegata ai programmi richiamati.
- La struttura
tab-mascherae' definita ma non utilizzata direttamente: viene usata dai programmi figli attraverso l'area di comunicazione. - I campi di
tab-mascherasuggeriscono i parametri di selezione disponibili nei programmi figli: tipo ordine (tm-ord), intervallo anagrafica (tm-ana-ini-cod/tm-ana-fin-cod), date (tm-data-da/tm-data-a), selezione tipo ordine (tm-sel-ord), tipo stampa (tm-tip-sta), tipo ordine (tm-tip-ord).