SWC005 - Scaricamento Tabella Azienda per SW-ING¶
Sorgente: cbl/swc005.cbl | Program-ID: SWC005 | Tipo: Batch BI (interattivo + Aglancio)
Menu: Statistiche > Estrazione dati vs B.I.Swing > Tabelle & Anagrafiche > Tabella azienda
Scopo¶
Esporta un singolo record con l'identificativo dell'azienda corrente (az-personal come codice, az-int come descrizione) verso il sottosistema BI SW-ING.
File e tabelle¶
Input¶
| File | Tipo | Modalita' | Uso |
|---|---|---|---|
| FEURTAB | ISAM | Input | Parametri |
(cogazien.cpy) |
working | - | Dati azienda gia' caricati in rd-azi |
Nota: SWC005 NON include cogazien.cpy come variabile di working storage propria — il copy cogazien.cpy e' commentato; il programma riusa i campi azienda dal contesto standard di Eurocoge tramite rd-azi.
Output BI¶
| Tabella BI | Record | Modalita' | Contenuto |
|---|---|---|---|
| BINAZIEN | bazi-rec | I-O | Anagrafica azienda (bazi-cod = az-personal, bazi-descr = az-int) |
| ARPSTPRC | a-stpr-rec | I-O | Stato processi Aglancio (solo batch) |
Copybook utilizzate¶
| Copybook | Contenuto |
|---|---|
swc005.select, swc005.fd, swc005.wrk, swc005-01.scr, swc005.decla, swc005.prc |
Screen Designer |
binazien.cpy, binazien-sql-ws.cpy, binazien-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 |
k-personal.cpy |
Costanti per varianti azienda |
Logica di elaborazione¶
Apertura¶
Standard SWC*: lettura azienda, configurazione, apertura connessione BI.
Elaborazione¶
cancella-bin-sub-tm-cfg-bin-tipo: TRUNCATE su BINAZIEN.fase1: scrive una singola riga BINAZIEN conaz-personal->bazi-cod,az-int->bazi-descr,datasis->bazi-data-agg.
Nota: non c'e' un loop — next-tm-letti e sub-cfg-wr-binazien vengono chiamate una sola volta.
Chiusura¶
Standard SWC*: chiusura BI; in modalita' batch riapre connessione AreaGate per aggiornare 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 = 50005, k-tabella-statosyn = "SWC005". Logica standard SWC*.
Note¶
- Programma molto compatto (~800 righe): scrive un solo record per esecuzione.
- In ambienti multi-azienda viene lanciato una volta per ogni azienda da estrarre.
- Il TRUNCATE iniziale cancella tutti i record BINAZIEN, anche di altre aziende: questo significa che se piu' aziende lanciano SWC005 in sequenza, sopravvive solo il record dell'ultima esecuzione. Per gestire multi-azienda in produzione e' previsto che ogni azienda abbia una propria istanza/connessione BI separata.