COGM86 -- Evasione Packing List (Lanciatore)¶

Sorgente: cbl/cogm86.cbl | Tipo: Programma lanciatore (dispatcher) | Program-ID: COGM86

Menu: Magazzino > Uscite > Packing List > Evasione Packing List

Scopo¶

Programma di lancio per la creazione dei buoni di prelievo dalla packing list. Verifica se esiste una personalizzazione aziendale (az-personal) e richiama il programma specifico, altrimenti invoca il programma standard COGM86NO.

Struttura del programma¶

Flusso principale¶

apri -> z-99-init-program -> ctr-abil -> rd-azi -> open-files
     -> get-divisa-conto -> set-win-appoggio
     -> Se az-personal <> " ":
          CALL "COGM86{az-personal}" (personalizzato)
          Se overflow -> m-standard
     -> m-standard:
          CALL "COGM86NO" (standard)
     -> fine -> z-close-files -> z-99-exit-program

Logica di dispatch¶

Se az-personal e' valorizzato, concatena "COGM86" + az-personal e tenta la CALL
Se la CALL va in overflow (programma non trovato), cade in m-standard
m-standard richiama sempre COGM86NO
Se anche COGM86NO non viene trovato, mostra un messaggio di errore e termina

File e Tabelle¶

File/Tabella	Copybook	Uso
FEURTAB	cogfiles.cpy	File tabelle Euro
(altri file via cogm86.select/fd)	cogm86.select, cogm86.fd	File definiti da Screens

Chiamate esterne¶

Programma	Scopo
COGM86{personal}	Versione personalizzata dell'evasione packing list
COGM86NO	Versione standard dell'evasione packing list
COGU10W	Utility valute/divisioni (get-divisa-conto)

Copybook utilizzate¶

Copybook generate da Screens¶

cogm86.select, cogm86.fd, cogm86.wrk, cogm86.prc, cogm86.decla, cogm86-01.scr

Copybook di libreria¶

cogfiles.cpy -- Definizione file Euro
k-u10.cpy, wrk-u10.cpy, utilu10.cpy -- Utility valute
wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy -- Working storage standard
cogazien.cpy -- Dati azienda (contiene az-personal)
GetDCont.cpy -- Procedura get-divisa-conto

Linkage¶

wcont.cpy -- Struttura linkage standard
wcont1.cpy -- Linkage supplementare

Note tecniche¶

Il programma e' molto semplice: la sua unica responsabilita' e' determinare quale implementazione di evasione packing list richiamare, in base alla personalizzazione aziendale.
La variabile az-personal proviene dalla copybook cogazien.cpy e identifica la verticalizzazione attiva per l'azienda.
Il nome del programma personalizzato viene costruito a runtime tramite STRING "COGM86" az-personal.
Usa mmmask.cpy (programma standalone con finestra propria).

Documentazione tecnica -- 2026-04-16