Vai al contenuto

TMPLNC - Lanciatore di setup / TEMPO (inizializzazione ambiente)

Sorgente: cbl/tmplnc.cbl | Program-ID: TMPLNC | Tipo: Utility interattiva di setup/deploy (non a menu)

Scopo

TMPLNC ("Lanciatore di tempo") e' l'utility eseguita tipicamente in fase di installazione o di aggiornamento di versione per allineare l'ambiente. Guida l'operatore attraverso una sequenza di passi di inizializzazione:

  1. Inizializzazione massiva degli archivi di tutti i moduli (percorsi + creazione file).
  2. Inizializzazioni CRM (SWCINIT) e Assist (SWAINIT).
  3. Rilascio delle maschere/screen (SCRREL).
  4. Pubblicazione dei modelli di messaggistica e dei modelli di import/export verso Areagate (DEPLOYMD, DEPLMDIE).
  5. Esecuzione dei programmi TEMPO* (una-tantum di migrazione/manutenzione dati) elencati in un file guida.

Ogni passo e' confermato dall'operatore (acc-conf-custom) e registrato in un file di log.

Struttura e flusso

Programma standalone chiamato using stringhe.

  • apri — abilitazione (ctr-abil), init, lettura dati azienda (rd-azi), apertura file, lettura della configurazione della connessione al DB Areagate (x99-src-cfg -> SWGETS, in tm-cfg-db-conn-string), apertura del file guida listatempo.txt (da ext-prg-dir) e conteggio dei programmi TEMPO da eseguire.
  • a-tm-da-programma / a-tm-a-programma — l'operatore puo' delimitare il range di programmi TEMPO da eseguire (da/a). F3 = conferma -> a-richiesta-conferma -> elabora.
  • elabora — cuore della procedura (vedi sotto).
  • fine / z-chiudi — chiusura file e finestra, uscita.

Paragrafo elabora

  1. Apre il file di log tmplnc_log_<operatore>_<data>_<ora>.txt (in ext-log-dir).
  2. "Lancio Gest.Archivi?" — se confermato, chiama in sequenza, passando wo-parametro = "AUTO", la coppia configurazione-percorsi (*001) + inizializzazione-file (*003) di ogni famiglia di archivi:
Famiglia Configurazione percorsi (*001) Inizializzazione file (*003)
File primari COGE01 COGE03
Ri.Ba. NUT001 NUT003
CRM CRM001 CRM003
Laboratori COGZ01 COGZ03
Assist 2.0 ASN001 ASN003
Cicli di lavoro COGQ01 COGQ03
Taglio & Lamiere TGL001 TGL003

La modalita' "AUTO" applica i percorsi standard solo agli archivi ancora privi di percorso e crea solo i file mancanti (vedi configurazione archivi e inizializzazione archivi). 3. "Lancio SWCINIT?" — inizializzazione CRM. 4. "Lancio SWAINIT?" — inizializzazione Assist. 5. "Lancio SCRREL?" — rilascio maschere: call "scrrel" using stringhe util-scrrel con wo-parametro = "A". 6. Se la connessione al DB Areagate e' configurata (tm-cfg-db-conn-string (1) not = spaces): DEPLOYMD (pubblicazione modelli di messaggistica). 7. DEPLMDIE (creazione modelli di import/export di default, deplmdie-ope = "DEPLOY"). 8. Ciclo ela-30 sui programmi TEMPO* letti da listatempo.txt: per ciascuno (eventualmente filtrato sul range da/a), conferma ed esegue call w-prg using stringhe, scrivendo nel log l'esito ("Eseguito", "NON TROVATO", "NON ESEGUITO"). I programmi tempo718 / tempo734 / tempo746 vengono saltati se manca la connessione Areagate. 9. Al termine (ela-50) offre di aprire il log (OPENFILE).

File e tabelle

File Copybook / assign Scopo
FEURTAB feurtab.fd / cogfiles.cpy Tabella nomi file
fileseq listatempo.txt (line sequential) File guida con l'elenco dei programmi TEMPO da eseguire
filelog tmplnc_log_*.txt (line sequential) Log dell'elaborazione

Sottoprogrammi chiamati (CALL)

  • Init archivi: COGE01/COGE03, NUT001/NUT003, CRM001/CRM003, COGZ01/COGZ03, ASN001/ASN003, COGQ01/COGQ03, TGL001/TGL003 (tutti con wo-parametro = "AUTO").
  • Init moduli: SWCINIT (CRM), SWAINIT (Assist).
  • Deploy: SCRREL (rilascio screen), DEPLOYMD (modelli messaggistica Areagate), DEPLMDIE (modelli I/E di default).
  • Servizio: SWGETS (stringa di connessione DB), OPENFILE (apertura del log).
  • Dinamico: i programmi TEMPO* elencati in listatempo.txt (call w-prg).

Copybook principali

tmplnc.select/.fd/.wrk/.decla/.prc/-01.scr (Screen Designer), utilswgets.cpy, utildeploymd.cpy, utildeplmdie.cpy, utilscrrel.cpy, utilopenfile.cpy, cogazien.cpy, wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, e i copybook di procedura standard (stato, stato1, winmsg, grave, opengen, mmmask).

Storico modifiche

2026-07-02 - Inizializzazione massiva archivi, deploy semplificato

  1. utilscrrel.cpy spostata da linkage a working-storage section: fornisce l'area util-scrrel usata dalla call "scrrel" using stringhe util-scrrel.
  2. "Lancio Gest.Archivi?" esteso a tutte le famiglie: in precedenza il ramo inizializzava solo COGE01/COGE03 (file primari); ora chiama in modalita' "AUTO" anche NUT001/NUT003, CRM001/CRM003, COGZ01/COGZ03, ASN001/ASN003, COGQ01/COGQ03 e TGL001/TGL003. Un nuovo ambiente riceve cosi' percorsi standard e file vuoti di tutti i moduli in un solo passaggio.
  3. Chiamata DEPLOYMD semplificata: rimossa la richiesta di conferma "Lancio deploymd?" e la DEPLMDIE annidata; ora DEPLOYMD viene eseguito direttamente quando e' configurata la connessione al DB Areagate.
  4. Chiamata DEPLMDIE riattivata (in precedenza commentata) nel blocco "Creazione modelli di I/E di default".

Note

  • Nel ramo "Lancio Gest.Archivi?" la cancel del gestore laboratori riporta il nome "cogz003" anziche' "cogz03": il programma cogz03 chiamato resta quindi residente in memoria dopo la chiamata AUTO (refuso ininfluente sulla logica, ma da correggere in un intervento futuro).
  • TMPLNC non compare in prog.txt: e' un'utility di setup, non una voce del menu applicativo.