TGL001)¶

Menu: Sistema > Archivi > Tabelle > (Archivi del modulo)

Famiglia di programmi interattivi, generati con lo Screen Designer, che permettono di configurare i percorsi fisici dei file (archivi) di un modulo. Ogni programma gestisce un diverso insieme di archivi, identificato da un tipo tabella univoco. Condividono la stessa struttura e la stessa logica (compresa la modalita' automatica "AUTO" descritta sotto).

Programmi della famiglia¶

Programma	Sorgente	Tipo tabella (`k-tipo-tabella`)	N. archivi	Modulo	Inizializzazione
ASN001	`cbl/asn001.cbl`	`AN`	100	Assist 2.0	ASN003
COGQ01	`cbl/cogq01.cbl`	`CL`	45	Cicli di Lavorazione	COGQ03
COGZ01	`cbl/cogz01.cbl`	`LO`	82	Laboratori Odontotecnici	COGZ03
CRM001	`cbl/crm001.cbl`	`CP`	77	CRM / Clienti Potenziali	CRM003
NUT001	`cbl/nut001.cbl`	`RI`	19	Ri.Ba. / RID	NUT003
TGL001	`cbl/tgl001.cbl`	`TL`	28	Taglio Lamiere	TGL003

Programma di riferimento della categoria: COGE01 (tabella archivi primari).

Struttura dati¶

tab-path — tabella (in working storage) dei nomi file "standard" di ciascun archivio, con la relativa descrizione. Ridefinita in tab-path-r (tf-ele occurs k-num-used-path / k-num-used-files), campi tf-desc, tf-path/tf-file.
tm-* (grid transito) — riga per archivio mostrata in griglia: tm-cod, tm-path, tm-log, tm-estens, ecc.
FEURTAB (feurtab.fd) — file dove viene memorizzato il percorso configurato di ogni archivio. Chiave: fil-tip = k-tipo-tabella, fil-num = tm-cod; dato: fil-nome = tm-path.
Variabili della modalita' automatica: w-auto ("A" = attiva), n-arc (conteggio ".arc"), nslash / tot-slash (conteggio separatori di percorso).

Logica di standardizzazione percorsi¶

Il paragrafo a1-standard replica il percorso "standard" su tutti gli archivi:

Decide se mantenere l'estensione .arc (tm-estens = "X") oppure rimuoverla.
Modalita' interattiva: chiede conferma all'operatore (acc-conf-custom); F3 → mantiene l'estensione.
Modalita' automatica: mantiene l'estensione solo se il primo percorso contiene gia' .arc (inspect tm-path(1) tallying n-arc for all ".arc").
Per ogni archivio (a11-imposta-standard) compone tm-path concatenando il percorso base (a1-path) e il nome file standard, quindi aggiorna FEURTAB (rwr-feurtab) e registra il filesystem (set-filesystem-for-fname).

Modalita' automatica "AUTO" (2026-07-01)¶

Se il programma viene avviato con il parametro di chiamata wo-parametro = "AUTO", in apri viene impostato w-auto = "A". Subito dopo il caricamento dei controlli, il programma:

if w-auto = "A"
   perform a1-standard thru ex-a1
   go to fine
end-if

cioe' esegue la standardizzazione dei percorsi senza mostrare la griglia e termina.

La differenza chiave rispetto alla modalita' interattiva e' nel paragrafo a11-imposta-standard-auto: il percorso standard viene applicato solo agli archivi ancora privi di percorso. Il controllo avviene contando i separatori di path:

inspect tm-path (a1-k) tallying nslash for all "/"
add nslash to tot-slash
inspect tm-path (a1-k) tallying nslash for all "\"
add nslash to tot-slash
if tot-slash = 0
   *> percorso vuoto: applica lo standard
end-if

Se tot-slash > 0 il percorso e' gia' configurato e viene lasciato invariato, preservando le personalizzazioni. Questo rende la modalita' AUTO idonea a essere invocata da procedure di installazione o di allineamento senza rischio di sovrascrivere i percorsi gia' impostati.

Note¶

Programmi generati dallo Screen Designer: la maggior parte della struttura (SELECT, FD, working, procedure I/O) proviene dai file .wrk/.fd/.prc associati.
La modalita' AUTO e' stata introdotta in modo identico su tutti e sei i programmi della famiglia (marcatore sorgente 010726).