NUT140 - Creazione R.I.D. (launcher)

Scopo

Dispatcher: in base alla configurazione ordine-di-stampa-rid (chiave PROGCOGV97, pac-gen='C' via RNEWCONF) lancia il sottoprogramma specializzato per la creazione degli archivi R.I.D. da trasmettere alle banche. Non ha logica propria, non accede ai dati.

File e tabelle

File	Tipo	Descrizione
COGTABEL	Indicizzato	Tipo 66 (azienda, az-personal)

Nessun accesso diretto ai dati R.I.D.; questa logica e' nei sottoprogrammi chiamati.

Copybook

Copybook	Sezione	Utilizzo
nut140.wrk / .fd	tutte	Strutture generate da Screens
cogazien.cpy	WORKING-STORAGE	az-personal
utilncnf.cpy	WORKING-STORAGE	Configurazione RNEWCONF
wgrave.cpy / wstato.cpy / wopenf.cpy	WORKING-STORAGE	Standard

CALL

Dipendono da tm-cfg-ord-prn letto da RNEWCONF:

Valore	Programma chiamato	Variante
V	NUT140NO	R.I.D. Standard (RIBA01-10 + RIDCORE + RIDB2B)
C	NUT140XX	R.I.D. Raggruppati per Cliente (+ RIDCORE / RIDB2B)
altro	—	Errore "Manca la configurazione. Inserirla!"

Se az-personal non e' vuoto: tenta CALL 'NUT140' || az-personal. Su overflow, fallback all'EVALUATE.

Logica di elaborazione

1. Legge configurazione ordine-di-stampa-rid.
2. Se az-personal specificato, tenta variante custom.
3. EVALUATE su tm-cfg-ord-prn per scegliere il sottoprogramma.
4. CALL del sottoprogramma con linkage stringhe; CANCEL al ritorno.

Note operative

• NUT140NO genera archivi per 10 banche + RIDCORE (consumatori) + RIDB2B (imprese).
• NUT140XX aggiunge raggruppamento per cliente (cliente-first file indicizzato).
• Entrambi leggono NUTARIBA, NUTSRIBA, COGFATTU, anagrafiche clienti.
• Formati file R.I.D.: binary sequential, record 120 char + CR + LF.
• Stesso schema dispatcher di NUT070 (stampa distinte).