ASN069 - Compagnie assicuratrici¶

Sorgente: cbl/asn069.cbl | Program-ID: ASN069 | Tipo: Programma interattivo (gestore tabella su COGTABEL)

Menu: Assist 2.0 > Archivi > Contratti > Tabelle > Compagnie assicuratrici

Scopo¶

Gestisce l'elenco delle compagnie assicuratrici usato dai contratti di assistenza. I dati non risiedono su una tabella dedicata ma su COGTABEL con tipo "FE" (campo euta-tipo-x); chiave: euta-cod (2 char) e descrizione euta-fe-des. Supporta modalita' "selezione" via utilasn069.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione	Chiave
FEURTAB	ISAM	Input	Parametri generali azienda	std
COGTABEL	ISAM	I-O	Tabella generica multi-tipo; tipo "FE" = compagnie assicuratrici	`euta-tipo-x` + `euta-cod`

Copybook utilizzate¶

Copybook	Ruolo
`asn069.select`, `asn069.fd`, `asn069.wrk`, `asn069-01.scr`, `asn069.prc`, `asn069.decla`	Screen Designer
`cogfiles.cpy`	Layout FEURTAB
`wgrave`, `wnscr`, `wopenf`, `wstato`, `cogazien`	Working storage standard
`wgrid.cpy`, `utilgdad.cpy`	Working griglia + linkage GRIDADMN
`utilasn069.cpy`	Linkage di chiamata esterna

Logica di elaborazione¶

Pattern standard "tabella anagrafica" (vedi ASN011/ASN020 per riferimento):

apri: open files, decisione modalita' (A/S) in base a asn069-called+asn069-caller.
a4 → a10-loop: scan completo di COGTABEL filtrato per euta-tipo-x = "FE" fino a k-max-ele-tab = 500 righe; riempimento tm-cod/tm-cod-prec/tm-des.
a-grid / a-accept-grid: accept griglia.
F3 aggiornamento: x-controlla-tm-tab-tutto e b-aggiorna; per ogni riga confronta tm-cod vs tm-cod-prec per decidere b1-inserisci / b2-modifica / b3-cancella (tutti su COGTABEL con euta-tipo-x = "FE").
Invio o F3 in modalita' selezione: ritorna tm-cod/tm-des al chiamante.

Programmi richiamati: GRIDADMN.

Linkage (utilasn069.cpy)¶

Campo	Direzione	Descrizione
`asn069-called`	in	"ASN069" attiva modalita' selezione
`asn069-caller`	in	Identificativo del chiamante
`asn069-in-cod`	in	Codice di pre-posizionamento (eventuale)
`asn069-out-cod`	out	Codice compagnia selezionata
`asn069-out-des`	out	Descrizione compagnia

Note¶

Massimo righe griglia: k-max-ele-tab = 500.
I dati condividono il file fisico COGTABEL con altri tipi: attenzione a non sovrapporre il tipo "FE" con altri usi.
Cancellazione semplice: nessuna verifica di referential integrity verso contratti/franchigie nel codice (c1-ctrl-canc controlla solo che la griglia non sia vuota).
Richiamato come F8 da ASN072 (franchigie assicurative) per la lookup compagnia.