Vai al contenuto

COGF03 -- Estratto Conto Agenti per Cliente

Sorgente: cbl/cogf03.cbl | Tipo: Programma maschera (selezione/lancio) | Program-ID: cogf03

Menu: Vendite > Provvigioni > Provvigioni ad incassato

Scopo

Programma di selezione per la stampa dell'estratto conto provvigioni agenti per cliente. Funge da dispatcher: verifica se esiste una versione personalizzata del programma di stampa (COGF03xx.COB, dove xx e' il codice personalizzazione azienda) e la lancia; altrimenti lancia la versione standard COGF03NO.

File e tabelle

File/Tabella Tipo Descrizione
FEURTAB Input Tabella generale (copybook cogfiles)
File da cogf03.select Vari File dichiarati dalla screen

Copybook principali

Copybook Sezione Descrizione
cogf03.select FILE-CONTROL SELECT dei file
cogf03.fd FILE SECTION FD dei file
cogf03.wrk WORKING-STORAGE Variabili di lavoro
cogf03-01.scr SCREEN SECTION Definizione maschera
cogf03.decla PROCEDURE Declaratives
cogf03.prc PROCEDURE Procedure generate da Screens
cogfiles.cpy FILE SECTION Record FEURTAB
wgrave.cpy WORKING-STORAGE Gestione errori gravi
wnscr.cpy WORKING-STORAGE Gestione screen
wopenf.cpy WORKING-STORAGE Gestione apertura file
wstato.cpy WORKING-STORAGE Variabili di stato
cogazien.cpy WORKING-STORAGE Dati azienda
wcont.cpy LINKAGE Struttura stringhe (parametri)
wcont1.cpy LINKAGE Struttura stringhe aggiuntive

Struttura del programma

main section
  apri            -- inizializzazione, apertura file, display maschera
  a4              -- (vuoto, placeholder)
  s1-100-standard -- lancia COGF03NO (versione standard)
  s1-100-std-ok   -- CALL al programma di stampa
  fine / z-chiudi -- chiusura file, exit program

Logica di elaborazione

  1. Inizializzazione: init program, controllo abilitazioni (ctr-abil), lettura dati azienda (rd-azi), apertura file, accept data di sistema.

  2. Dispatch personalizzazione: controlla az-personal (codice personalizzazione azienda):

  3. Se valorizzato, costruisce il nome COGF03xx.COB e tenta una CALL; se overflow (programma non trovato), ricade sulla versione standard.

  4. Se vuoto, lancia direttamente COGF03NO.

  5. CALL: il programma di stampa viene chiamato con USING stringhe (parametri linkage standard) e successivamente cancellato (CANCEL).

  6. Chiusura: chiude file, finestra, exit program.

Note

  • Il programma non contiene logica di business propria; e' solo un dispatcher.
  • La logica di stampa effettiva risiede in COGF03NO (o nella personalizzazione).
  • Utilizza mmmask.cpy (programma standalone, non subroutine).