GESDBFST -- Pannello di controllo DB Frontiera (OBSOLETO)¶
Sorgente: cbl/gesdbfst.cbl | Tipo: Programma interattivo a maschera (obsoleto dal 2026-06-04) | Program-ID: GESDBFST
Stato¶
Programma obsoleto e non piu' eseguibile dalla build 2026-06-04 (TASK-5251).
Subito dopo l'apertura della maschera viene mostrato il messaggio "Programma Obsoleto NON Eseguibile !! " ed eseguito go to fine, impedendo qualsiasi operazione. Il codice originale (tabelle di processi, semafori, lancio dinamico via CALL tm-r-prg) e' lasciato nel sorgente ma irraggiungibile.
Posizione menu: Sistema > Archivi > Sincronizzazioni > Pannello di controllo DB Frontiera.
E' opportuno rimuovere la voce dal menu utente nelle prossime revisioni: il sistema di sincronizzazione DB frontiera e' stato rimpiazzato.
Scopo originale (storico)¶
Pannello di controllo della sincronizzazione tra gestionale e DB frontiera (HOST/Postgres). Per ciascun processo (riga della griglia) consentiva di:
- attivare/disattivare la sincronizzazione globale (
tm-sincro-attiva) - attivare/disattivare il singolo processo (
tm-r-attivo) - forzarne l'esecuzione immediata (
tm-r-forza) - impostare livello di log (
tm-r-log-level), tempo di attesa (tm-r-attesa), limite righe (tm-r-limita) e limite errori (tm-r-limita-err)
Il programma chiamava in dinamico il sottoprogramma di ogni riga via CALL tm-r-prg (i) USING stringhe util-dbfprg.
File principali (storico)¶
| Tabella | Ruolo |
|---|---|
| DFSEMAFORO | Semaforo globale sincronizzazione |
Tabella interna tm-r-* |
Una riga per processo (id, nome, descrizione, programma, ...) |
Modifiche introdotte (build 2026-06-04)¶
TASK-5251 -- Marcatura "obsoleto" all'apertura¶
Subito dopo le aperture iniziali e prima dell'initialize tab-config:
*>DOC: Programma obsoleto non piu' eseguibile
move "Programma Obsoleto NON Eseguibile !! " to wb-msg
perform vbx-msg-error
go to fine
.
Il messaggio e' bloccante (vbx-msg-error) e l'uscita avviene subito. Tutto il codice successivo (caricamento griglia, gestione tasti, dispatching processi) e' ora codice morto.
Cosmetiche¶
Allineamento di alcune colonne nei blocchi string ... delimited size into wb-msg e nella call tm-r-prg (i) using stringhe util-dbfprg.
Storico modifiche¶
| Build | Descrizione |
|---|---|
| 2026/0604 | TASK-5251: programma marcato come obsoleto e non eseguibile. All'apertura della maschera viene mostrato "Programma Obsoleto NON Eseguibile !! " e si esce immediatamente. Il codice operativo originale e' inerte ma viene lasciato in repository |