Vai al contenuto

COGP36 - Selettore stampa Allegato Inventario

Panoramica

Programma "lanciatore" (dispatcher) molto breve, non contiene logica di stampa propria: seleziona e richiama il programma effettivo di stampa dell'allegato inventario. Se l'azienda ha una personalizzazione (az-personal valorizzato) tenta di richiamare la versione personalizzata COGP36<pp>.COB; altrimenti richiama la versione standard COGP36NO. Riceve dal menu il gruppo linkage stringhe (copybook WCONT/WCONT1) e lo passa al programma chiamato.

Posizione nel menu

Menu Percorso
Magazzino Inventario > Stampe > Allegato Inventario

Struttura del programma

File e tabelle utilizzati

File/Tabella Tipo Descrizione
(nessuno) - Il programma non apre file dati; usa solo il record azienda passato in linkage

Copybook principali

Copybook Descrizione
wstato.cpy / wgrave.cpy / wopenf.cpy / wnscr.cpy Copybook standard di stato/errori/apertura/schermo
cogazien.cpy Record azienda; usa az-personal (suffisso personalizzazione) e az-rec
WCONT.CPY / WCONT1.CPY Struttura linkage stringhe condivisa passata al programma chiamato
WINMSG.CPY Gestione messaggistica

Chiamate a sottoprogrammi (CALL)

Programma Scopo
COGP36<pp>.COB Versione personalizzata per cliente (dove <pp> = az-personal), richiamata dinamicamente se presente
COGP36NO Versione STANDARD della stampa allegato inventario (fallback)

Logica di elaborazione

  1. a000 (main): imposta prog-err/w-nome-hlp a 'COGP36', valorizza il record azienda dal linkage (rd-azi).
  2. Se az-personal = spaces salta direttamente a s1-100-standard.
  3. Altrimenti compone il nome 'COGP36' + az-personal + '.COB' in wo-cogp36 e lo richiama con CALL ... using stringhe; su on overflow (programma personalizzato non caricabile) ricade su s1-100-standard. Dopo la chiamata esegue cancel e va a fine.
  4. s1-100-standard / s1-100-std-ok: imposta wo-cogp36 = 'COGP36NO', lo richiama con CALL ... using stringhe e cancel.
  5. fine / z-chiudi: exit program.
  6. rd-azi: valorizza az-rec da azien-area, imposta l'operatore (ext-oper) e, se presente, il nome help particolare (ext-name).

Note tecniche

  • Programma di sola selezione/instradamento: la funzione reale di stampa e' interamente delegata a COGP36NO (o alla variante personalizzata COGP36<pp>). L'etichetta di menu "Allegato Inventario" corrisponde alla funzione, resa dal programma chiamato.
  • Meccanismo standard di personalizzazione per cliente: il suffisso az-personal del record azienda determina il nome del programma da eseguire; il .COB indica il richiamo dinamico dell'oggetto compilato.
  • source-computer/object-computer impostati a pc-sperry (convenzione dei programmi lanciatori). Usa ancora GO TO per l'instradamento, tipico di questo tipo di dispatcher legacy.
  • Il file section e file-control sono vuoti: nessuna tabella dati aperta direttamente.