COGU52 - Importazione Ordini Clienti¶

Sorgente: cbl/cogu52.cbl | Program-ID: COGU52 | Tipo: Programma interattivo (launcher)

Menu: Ordini > Clienti

Scopo¶

Programma launcher per l'importazione di ordini clienti da file esterno. Presenta una maschera di selezione del file e del tipo di elaborazione, poi delega l'intera logica di importazione al sottoprogramma personalizzabile COGU52<az-personal> (nome calcolato a runtime concatenando il Program-ID con il codice azienda personale). Il numero di record elaborati viene restituito in tm-rec-letti.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
FEURTAB	ISAM	Input	Tabella features/abilitazioni utente

Copybook utilizzate¶

Copybook	Descrizione
`cogu52.select`	Definizioni SELECT dei file
`cogu52.fd`	FD dei file
`cogu52.wrk`	Working storage specifica
`cogu52.prc`	Procedure di I/O sui file
`cogu52-01.scr`	Schermata principale (Screen Designer)
`cogu52.decla`	Declaratives
`wcont.cpy`, `wcont1.cpy`	Linkage section standard
`k-u10.cpy`	Costanti valuta
`k-personal.cpy`	Codice personalizzazione azienda
`wgrave.cpy`, `wstato.cpy`, `wopenf.cpy`, `wnscr.cpy`	Standard di programma
`cogazien.cpy`	Dati azienda
`UTILu10.CPY`	Utility valuta
`UTILS25.CPY`	Utility S25
`getdcont.cpy`	Gestione contatori di controllo
`grave.cpy`, `mmmask.cpy`, `opengen.cpy`, `stato.cpy`, `stato1.cpy`, `winmsg.cpy`	Infrastruttura standard
`cogfiles.cpy`	Record FEURTAB

Logica di elaborazione¶

Il programma e' un puro launcher. La logica e' minima:

Inizializzazione standard (z-99-init-program, ctr-abil, rd-azi, open-files).
Imposta i tasti funzione F3 (conferma) e F5 (apri file).
Inizializza la struttura tab-maschera (contiene: percorso file, tipo elaborazione, contatore record letti).
Costruisce il nome del programma da chiamare: string 'COGU52' az-personal into w-cogu52. Esempio: se az-personal = "XX", chiama COGU52XX.
Chiama il programma risultante con CALL w-cogu52 USING stringhe. Tutta la logica di importazione (parsing del file, scrittura ordini, validazioni) e' nel sottoprogramma specifico per azienda.
Al ritorno, esegue cancel w-cogu52 e chiude la finestra.

La maschera (cogu52-01.scr) gestisce la selezione del file tramite il pulsante F5 (apri file), che popola tm-filein, tm-filein-short e tm-filein-server. L'acquisizione dei dati della form segue il pattern standard con z-99-exception-form.

Chiamate a sottoprogrammi¶

Programma	Utilizzo
`COGU52<az-personal>`	Sottoprogramma specifico per azienda che esegue l'effettiva importazione; il nome e' calcolato a runtime (es. `COGU52HT`, `COGU52GU`)