NUT070 - Stampa Distinte (launcher)

Scopo

Dispatcher: in base alla configurazione ordine-di-stampa (chiave PROGCOGV97 letta via RNEWCONF) lancia il sottoprogramma specializzato di stampa distinte RI.BA. 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 RI.BA.; questa logica e' nei sottoprogrammi chiamati.

Copybook

Copybook	Sezione	Utilizzo
nut070.wrk / .fd / .decla	tutte	Strutture generate da Screens
cogazien.cpy	WORKING-STORAGE	az-personal per varianti personalizzate
utilncnf.cpy	WORKING-STORAGE	Configurazione RNEWCONF

CALL

Dipendono da tm-cfg-ord-prn letto da RNEWCONF (chiave PROGCOGV97, configurazione ordine-di-stampa):

Valore	Programma chiamato	Variante
V	NUT070NO	Stampa per Vendite (banca standard ABI/CAB)
C	NUT070XX	Stampa per Clienti raggruppati
M	NUT070MA	Stampa per Magazzino/progressivo
A	NUT070CO	Stampa per Aggregato/raggruppamento
altro	—	Errore "Manca la configurazione. Inserirla!"

Se az-personal non e' vuoto: tenta CALL 'NUT070' || az-personal (es. NUT070ZZ). Su overflow, fallback all'EVALUATE sopra.

Logica di elaborazione

1. Legge configurazione ordine-di-stampa.
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

• I sottoprogrammi NUT070XX e NUT070MA creano file temporaneo LAVORO (indicizzato, 4 chiavi alternate) per ordinamento.
• NUT070CO ordina su raggruppamento (es. ragione sociale cliente aggregato).
• Tutti scrivono file binario RIBAXX (record 120 + CR + LF) per stampa.
• Stesso schema dispatcher di NUT140 (creazione R.I.D.).