SWC006 - Scaricamento Tabella Operatori per SW-ING¶

Sorgente: cbl/swc006.cbl | Program-ID: SWC006 | Tipo: Batch BI (interattivo + Aglancio)

Menu: Statistiche > Estrazione dati vs B.I.Swing > Tabelle & Anagrafiche > Tabella operatori

Scopo¶

Esporta la tabella degli operatori (PRNTOPER) con il flag responsabile (letto da LODTABEL tipo 2) verso il sottosistema BI SW-ING.

File e tabelle¶

Input¶

File	Tipo	Modalita'	Uso
FEURTAB	ISAM	Input	Parametri
PRNTOPER	ISAM	Input	Anagrafica operatori (loop principale)
LODTABEL	ISAM	Input	Tipo 2: dati estesi operatore (flag responsabile in `lta-02-fl-resp`)

Output BI¶

Tabella BI	Record	Modalita'	Contenuto
BINOPERA	bope-rec	I-O	`bope-azi` = `az-personal`, `bope-cod` = `ptop-cod`, `bope-descr` = `ptop-des`, `bope-respon` = `lta-02-fl-resp`
ARPSTPRC	a-stpr-rec	I-O	Stato processi Aglancio

Copybook utilizzate¶

Copybook	Contenuto
`swc006.select`, `swc006.fd`, `swc006.wrk`, `swc006-01.scr`, `swc006.decla`, `swc006.prc`	Screen Designer
`binopera.cpy`, `binopera-sql-ws.cpy`, `binopera-sql-prc.cpy`	Tabella BI
`arpstprc.cpy`, `arpstprc-sql-ws.cpy`	Stato processi
`sql-decla-ws.cpy`	Working storage SQL
`utilncnf.cpy`, `utilgesdebug.cpy`, `utilswgets.cpy`, `utilagprg.cpy`	Utility
`cogazien.cpy`, `k-personal.cpy`	Dati azienda

Logica di elaborazione¶

Apertura¶

Standard SWC*: lettura azienda, configurazione, apertura connessione BI.

Elaborazione (`fase1`)¶

Scan completo di PRNTOPER (st-prntoper-notmin + loop rdnxt-prntoper). Per ogni operatore:

Lookup su LODTABEL tipo 2 con lta-codr = ptop-cod per recuperare lta-02-fl-resp (se non trovato, inizializza).
Valorizza bope-azi, bope-cod, bope-descr, bope-respon, bope-data-agg.
Scrive BINOPERA via sub-cfg-wr-binopera.

Chiusura¶

Standard SWC*; in modalita' batch aggiorna ARPSTPRC.

Chiamate esterne (CALL)¶

Programma	Scopo
RNEWCONF	Configurazione (BI e Aglancio)
SWGETS	Conn-string AreaGate
C$NARG, C$PARAMSIZE, C$RERR	Runtime AcuCOBOL

Configurazioni (RNEWCONF)¶

BI (`x99-src-cfg`, gruppo `abilita`)¶

Standard: bin-tipo, bin-db-path, bin-db-conn-string (1-3), bin-db-log-level.

Aglancio (`x99-src-cfg-agl`, gruppo `areaapp`)¶

cod-azienda, db-log-level, AGLANCIO-ATTIVO.

Schedulazione (Aglancio)¶

k-id-processo = 50006, k-tabella-statosyn = "SWC006". Logica standard SWC*.

Note¶

Non c'e' fase di cancellazione iniziale: le scritture usano fallback wr/rwr per gestire eventuali record gia' presenti.
Esporta tutti gli operatori dell'azienda, anche quelli non piu' attivi (il record non viene filtrato).