COSO34 -- Tabella Sezioni¶

Sorgente: cbl/coso34.cbl | Tipo: Programma interattivo (character-mode) | Program-ID: COSO34

Menu:

Contabilita' > Unione soci/clienti > Tabella Sezioni

Scopo¶

Gestione della tabella Sezioni di Attivita' nell'ambito del modulo Unione Soci/Clienti. Utilizza la tabella generica COGTABEL con euta-tipo = 06 e euta-codso1 = 75. Supporta inserimento, modifica e cancellazione delle voci.

Il programma e' strutturalmente identico a COSO31 e COSO32, con l'unica differenza nel valore di euta-codso1 (75) e nel titolo della maschera ("Codifica sezioni di attivita'").

File e Tabelle¶

File/Tabella	Copybook	Uso
COGTABEL	cogfiles.cpy (euta-*)	I-O -- Tabella generica, tipo 06 / codso1 75
COGAZIEN	cogazien.cpy	Input -- Dati azienda corrente
FEURTAB	feurtab.fd	Tabella path file

Copybook principali¶

feurtab.fd -- SELECT per FEURTAB
cogtabel.fd -- SELECT per COGTABEL
cogazien.fd -- SELECT per COGAZIEN
cogfiles.cpy -- Record COGTABEL (campi euta-*)
cogazien.cpy -- Record azienda
wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy -- Working standard
wcont.cpy, wcont1.cpy -- Linkage standard (stringhe)
stato.cpy, msend.cpy, grave.cpy, openf.cpy, mmmask.cpy -- Procedure standard

Logica di Elaborazione¶

Chiave COGTABEL¶

Campo	Valore
`euta-codr`	0 (fisso)
`euta-tipo`	06 (fisso -- tipo "soci")
`euta-codso1`	75 (fisso -- sottotipo "sezioni")
`euta-codso2`	Codice digitato dall'utente (campo `cod`, PIC 9(03))

La descrizione viene salvata in euta-descr1.

Flusso principale¶

Identico a COSO31: ciclo accept codice -> lettura COGTABEL -> inserimento/variazione/cancellazione. Vedi COSO31 per i dettagli del flusso.

Differenze rispetto a COSO31/COSO32¶

Usa openf.cpy anziche' open1.cpy per l'apertura file (name-files con nf-name a 30 byte anziche' 70).
Usa msend.cpy anziche' winmsg.cpy per i messaggi.
Per il resto la struttura e' identica.

Documentazione tecnica -- 2026-04-28