COGI32 - Numerazioni Colture¶

Sorgente: cbl/cogi32.cbl | Tipo: Programma a menu | Program-ID: COGI32

Menu: Magazzino > Colture > Archivi di Base > Tabelle > Numerazioni

Scopo¶

Gestisce la tabella delle numerazioni progressive del modulo Colture. Attualmente la sola voce gestita e' il "Progressivo Giornalieri". La tabella e' memorizzata su CICTABEL con cit-tipo = 11.

File e Tabelle¶

File/Tabella	Uso
FEURTAB (cogfiles)	Parametri generali
CICTABEL	Tabella numerazioni colture (chiave: `cit-tipo`, `cit-codr`)

Copybook principali¶

feurtab.fd, cictabel.fd, cogfiles.cpy, cictabel.cpy
Standard: WSTATO, WGRAVE, WOPENF, WNSCR, COGAZIEN
A fine procedure: stato, winmsg, grave, open1, openc, mmmask, dtab, tstfun1

Logica di elaborazione¶

Apertura (apri): apre i file CICTABEL e legge rd-azi. Imposta dimensioni maschera (13x53) e popola mm-1.
Caricamento tabella (a-rd-tab): scansione delle 25 posizioni della tabella tabe, lettura di CICTABEL con cit-tipo = 11 e cit-codr da 1 a 25; il valore cit-num viene caricato in elenum-6 (i). Le entrate non presenti restano a zero.
Visualizzazione e input (a4, a10, acc-00): griglia paginata di 10 righe (t-length = 10); accept del valore numerico per la riga corrente. Gestione tasti SU/GIU/PG-UP/PG-DWN/F-INI/F-FIN tramite tst-fun. F3 conferma, ESC esce.
Aggiornamento (b-agg-tab): per ciascuna delle 25 posizioni, lettura del record CICTABEL: se non esiste lo crea con write cit-rec, poi aggiorna cit-num e rewrite.

Note¶

Tabella interna tab-des con descrizione "Progressivo Giornalieri" alla posizione 1; le altre 24 sono spazi.
Non ci sono chiamate a sotto-programmi.
Programma in stile RM-COBOL legacy (uso di GO TO e PERFORM ... THRU): convenzione del sorgente originale.