COGQ56 - Verifica Sequenze Fasi su Macchina¶

Scopo¶

Wrapper di lancio del modulo COGQ67 per la verifica delle sequenze delle fasi di lavorazione sulle macchine. Il programma raccoglie la sola data di partenza, propone come default il giorno successivo all'ultimo consuntivo registrato in CLCTABEL (tipo 0, codr 0, campo cta-00-data-cns), e chiama COGQ67 passando la data tramite util-q67.

Magazzino > Produzione > Cicli di Lavorazione > Operativo > Verifica

File e tabelle¶

File	Tipo	Descrizione
FEURTAB	Parametri	File parametri di ambiente
CLCTABEL	Indicizzato	Tabella configurazioni cicli di lavorazione (letta per `cta-00-data-cns`)

Copybook¶

File e select¶

feurtab.fd, cogfiles.cpy
cogq56.select, cogq56.fd, cogq56.wrk
cogq56-01.scr, cogq56.decla, cogq56.prc

Working-storage standard¶

wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy

Utilita'¶

utils52.cpy — Utility data
utilq67.cpy — Linkage del modulo chiamato (util-q67)

Linkage¶

wcont.cpy, wcont1.cpy

Procedure¶

grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy

CALL¶

Programma	Descrizione
COGQ67	Modulo verifica sequenze (con `util-q67` e `q67-data-ini`)
DTPRG	Conversione data -> progressivo giorni
PRGDT	Conversione progressivo giorni -> data

Logica di elaborazione¶

apri: inizializzazione programma, definizione tasti F3/F8.
a4:
Legge CLCTABEL (tipo 0, codr 0); se non trovata azzera cta-00-data-cns.
Converte cta-00-data-cns a progressivo giorni con DTPRG, aggiunge 1, riconverte con PRGDT -> tm-data.
a-tm-data: accept della data, con F8 calendario.
a-richiesta-conferma: validazione, conferma F3, poi perform b-elabora.
b-elabora: inizializza util-q67, copia tm-data in q67-data-ini, call "COGQ67" using stringhe util-q67, cancel "COGQ67".
Ritorno alla maschera principale o uscita.

Note tecniche¶

Programma molto compatto (342 righe): la logica di verifica vera e propria e' tutta in COGQ67.
Il valore cta-00-data-cns rappresenta la data dell'ultimo consuntivo elaborato globalmente; viene aggiornato da altri programmi della catena consuntivi.
Usa il pattern standard di accept singolo + conferma F3.