ASN046 - Importanza prestazioni

Sorgente: cbl/asn046.cbl | Program-ID: ASN046 | Tipo: Programma interattivo (gestore tabella anagrafica)

Menu: Assist 2.0 > Archivi > Tabelle > Importanza prestazioni

---

Scopo

Gestisce la tabella dei codici di importanza prestazioni (ASNPRPIM), valori attribuibili al campo ACHP-IMPORTANZA delle prestazioni previste sulle chiamate. Pattern standard tabella anagrafica con griglia, con sincronizzazione su Areagate (KPN) ad ogni variazione. Supporta modalita' "selezione" via utilasn046.

---

File e tabelle

File/Tabella	Tipo	Modalita'	Descrizione	Chiave
FEURTAB	ISAM	Input	Parametri generali azienda	std
ASNPRPIM	ISAM	I-O	Codici di importanza prestazioni	aprm-cod x(2)

Copybook utilizzate

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

Logica di elaborazione

Pattern standard "tabella anagrafica":

1. apri: open files, decisione modalita' (A/S) in base a asn046-called+asn046-caller.
2. a4 → a10-loop: scan completo di ASNPRPIM fino a k-max-ele-tab = 500 righe.
3. a-grid / a-accept-grid: accept griglia.
4. F3 aggiornamento: x-controlla-tm-tab-tutto (controllo codice duplicato anche all'interno della griglia) e b-aggiorna; b1-inserisci / b2-modifica / b3-cancella su ASNPRPIM.
5. Dopo ogni b1/b2/b3 viene chiamata x-sincronizza-kpn che a sua volta richiama SWN025 (agprg-ope = "ESPORTA-KEY") per propagare la chiave su Areagate.
6. Invio o F3 in modalita' selezione: ritorna tm-cod/tm-des.

Programmi richiamati: GRIDADMN, SWN025.

Linkage (utilasn046.cpy)

Campo	Direzione	Descrizione
asn046-called	in	"ASN046" attiva modalita' selezione
asn046-caller	in	Identificativo del chiamante
asn046-in-cod	in	Codice di pre-posizionamento (eventuale)
asn046-out-cod	out	Codice importanza selezionato
asn046-out-des	out	Descrizione

Note

• Massimo righe griglia: k-max-ele-tab = 500.
• Sincronizzazione automatica con Areagate via SWN025 su ogni insert/modify/delete (x-sincronizza-kpn).
• x-controlla-tm-cod verifica anche i duplicati intra-griglia (oltre alla lettura su disco) usando rd-asnprpim-lk (lookup).
• Cancellazione: c1-ctrl-canc controlla solo che la griglia non sia vuota. Il programma non blocca la cancellazione anche se il codice e' referenziato da chiamate esistenti.