SWA004 -- Lancio esportazione interventi AreaAPP¶

Sorgente: cbl/swa004.cbl | Tipo: subroutine/launcher | Program-ID: SWA004

Menu: Assist 2.0 > Operativo > Gestione Interventi a Richiesta

Scopo¶

Determina la versione della tabella ARPINTES su apstatosyn e instrada l'esportazione interventi verso SWA004X (legacy, versione <2) oppure SWN037 (nuovo, versione >=2). Discrimina inoltre tra esportazione singolo intervento e esportazione massiva da WPOPTRE.

File e tabelle principali¶

File/Tabella	Uso
`feurtab`	Tabella parametri Eurocoge
`apstatosyn` (via `sub-cfg-rd-apstatosyn`)	Lettura versione `ARPINTES`
`arpstprc` (via `sub-cfg-rd-arpstprc`)	Lettura direzione/modalita' processo SWN037

Linkage¶

Copybook	Uso
`wcont.cpy` / `wcont1.cpy`	Area di contesto comune
`u-copiaf.cpy`	Area copia file
`utilswa.cpy`	Parametri called: `utilswa-id-intervento`, `utilswa-called`

Programmi chiamati¶

Programma	Scopo
SWN037	Esportazione interventi (versione corrente, processo id 40)
SWA004X	Esportazione interventi (versione legacy)
SWGETS	Utility get stringhe
RNEWCONF	Lettura configurazioni
C$CALLEDBY	Identifica programma chiamante (per modalita' massiva)

Configurazioni RNEWCONF¶

Gruppo	Chiave	Note
AreaAPP	Profilo (`tm-cfg-attiva-areaapp`)	Se != "S" termina
AreaAPP	`tm-cfg-cod-azienda`	Filtra ricerca su `apstatosyn`/`arpstprc`

Logica di elaborazione¶

Init subroutine, apertura log eventi.
Lettura configurazioni e codice azienda; verifica profilo AreaAPP attivo.
Apertura tabelle DB AreaAPP; in caso di errore log errore e fine.
Legge versione ARPINTES da apstatosyn e direzione di processo SWN037 da arpstprc (id 40).
Condizioni di routing:
Se versione ARPINTES >= 2 e direzione SWN037 in ("T","E"):
- Se utilswa-id-intervento > 0 -> CALL SWN037 con agprg-ope="ESPORTA-KEY" su quel singolo id.
- Altrimenti, se chiamante e' WPOPTRE.COB (rilevato via C$CALLEDBY) -> CALL SWN037 senza chiave (export massivo).
Altrimenti -> CALL SWA004X (legacy).
Chiusura ambiente e log.

Documentazione tecnica generata -- 2026-06-04