COGG10 - Stampa Tabelle Clienti Potenziali¶
Sorgente: cbl/cogg10.cbl | Program-ID: COGG10 | Tipo: Stampa
Menu: Contabilita' > Clienti Potenziali > Stampe > Tabelle
Scopo¶
Stampa il contenuto di una tabella di raggruppamento clienti potenziali (tipo 31 su COGTABEL). Produce un report con testata (descrizione tabella, azienda, data, pagina) e dettaglio (codice + descrizione di ogni voce).
Struttura della maschera¶
Maschera a caratteri inline (mm-1, 5 righe x 56 colonne). Richiede solo il codice tabella (tm-cod, 2 char); la descrizione viene visualizzata dopo la lettura.
Logica di elaborazione¶
Flusso principale¶
- Inizializzazione (
apri):ctr-abil,open-files,rd-azi, display maschera. - Accept codice tabella (
a5): accept tm-cod, F8 per aiuto (send-gw01). Legge la testata su COGTABEL (tipo=31, ptc-tip=tm-cod). Se non esiste, messaggio "Tabella non esistente". - Stampa (
b-stampa): invocaCOGS54per la selezione stampante. Poi ciclob-10-loop: legge sequenzialmente COGTABEL filtrando tipo=31 e ptc-tip=tm-cod. Per ogni voce scrive una riga nel report. Gestione impaginazione automatica con testata (testa). - Fine: chiude COGTABEL, esce.
Sottoprogrammi chiamati¶
| Programma | Scopo |
|---|---|
| COGS54 | Selezione stampante e gestione output |
File utilizzati¶
| File | Copybook | Accesso | Utilizzo |
|---|---|---|---|
| FEURTAB | cogfiles.cpy | Random | Tabella file generali |
| COGTABEL | COGTABEL.CPY | Input, Dynamic | Tabella principale (tipo 31) |
| FLSTA | flsta.cpy/fd | Output | File di stampa |
Copybook principali¶
| Copybook | Descrizione |
|---|---|
| feurtab.fd | SELECT FEURTAB |
| cogtabel.fd | SELECT COGTABEL |
| flsta.fd, flsta.cpy | File di stampa |
| COGTABEL.CPY | Record layout |
| cogfiles.cpy | Record layout FEURTAB |
| wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy | Variabili standard |
| cogazien.cpy | Dati azienda |
| utilgw01.cpy | Interfaccia GW01 (aiuto) |
| utils54.cpy | Interfaccia COGS54 (stampante) |
| wcont.cpy, wcont1.cpy | Linkage standard |
| stato.cpy, winmsg.cpy, grave.cpy, open1.cpy | Procedure standard |
| mmmask.cpy | Gestione maschera |
| sendgw01.cpy | Invocazione aiuto GW01 |
Note tecniche¶
- COGTABEL viene aperto in INPUT (sola lettura).
- Il report ha formato fisso: codice (8 char) + descrizione (40 char).
- L'impaginazione e' gestita dal contatore
ctr-rigconfrontato con le righe disponibili dalla stampante (s54-stm-lin - 12). - Supporta sia codici numerici che alfanumerici (rg-cod / rg-cod-num con redefines).