COGT24 - Periferiche di stampa¶

Sorgente: cbl/cogt24.cbl | Tipo: Programma interattivo GUI con griglia (anche richiamabile via CALL come lookup) | Program-ID: COGT24

Menu:

Sistema > Configurazione > Stampanti

Scopo¶

Gestisce l'anagrafica delle periferiche di stampa (tabella PRNTPERF): le destinazioni fisiche/logiche di stampa utilizzabili dal gestionale. Ogni periferica ha un codice, una descrizione, un comando di attivazione, un indirizzo locale, il flag rete/locale, il flag "forza logo" e il collegamento a una stampante dell'anagrafica COGT22.

E' l'ultimo dei quattro programmi della configurazione del sottosistema di stampa e ne rappresenta il punto di utilizzo finale:

COGT21 - emulazioni disponibili;
COGT22 - stampanti fisiche;
COGT23 - emulazioni per stampante (comandi di attivazione/disattivazione);
COGT24 (questo) - periferiche di stampa, ognuna collegata a una stampante di COGT22.

Come COGT21 e COGT22, opera da menu (aggiornamento anagrafico) o richiamato via CALL (t24-called = COGT24, copybook utilt24.cpy) come finestra di selezione periferica, restituendo codice e descrizione in t24-out-cod / t24-out-des.

Struttura del programma¶

Struttura a griglia con frame di dettaglio, analoga agli altri programmi del gruppo. La tabella interna tab-maschera (max k-max-ele-tab = 900 righe) rispecchia i record PRNTPERF.

Inizializzazione (`apri`)¶

ctr-abil, z-99-init-program, open-files, rd-azi, rilevazione chiamata (w-dc-called), abilitazione tasti (invio, F3 conferma, F8 aiuto, Shift-F4 griglia, Ctrl-A, Ctrl-E), preparazione griglia e controlli.

Caricamento (`a10` / `a10-loop`)¶

Scandisce PRNTPERF (st-prntperf-notmin + rdnxt-prntperf) riempiendo tm-tab con codice, descrizione, comando di attivazione, indirizzo, flag rete, flag logo e codice stampante collegata. Per ogni periferica con stampante valorizzata risolve la descrizione della stampante leggendo PRNTSTMP (rd-prntstmp, ptst-des) per mostrarla in griglia.

Griglia e modalita' (`a-grid` / `a-accept-grid`)¶

F3 commuta Selezione/Aggiornamento; in Selezione l'invio restituisce la periferica al chiamante e termina; in Aggiornamento apre la modifica. Ctrl-A/Ctrl-E aggiungono/eliminano righe; Shift-F4 apre la personalizzazione griglia (GRIDADMN).

Riga di dettaglio (`a-tm-cod` ... `a-riga-dettaglio-fine`)¶

Sequenza di accept: codice (a-tm-cod, chiave), descrizione (a-tm-des), flag rete/locale (a-tm-fl-net, check via subroutine S95), comando di attivazione (a-tm-att), indirizzo (a-tm-ind), stampante collegata (a-tm-stm-cod) e forza logo (a-tm-fl-logo, check via S95, default k-yes in inserimento). Sul campo stampante, F8 richiama COGT22 come selezione stampante; il controllo x-controlla-tm-stm-cod verifica l'esistenza della stampante in PRNTSTMP e ne mostra la descrizione. Alla conferma scrive (wr-prntperf) o riscrive (rwr-prntperf) il record; in inserimento controlla che il codice non esista gia'.

Cancellazione (`c-cancella`)¶

Rilettura in lock (rd-prntperf-lk) ed eliminazione (del-prntperf).

Tabelle e file¶

File logico	Chiave / accesso	Descrizione
FEURTAB	-	Tabella di sistema (aperta via `cogfiles.cpy`)
PRNTPERF	primaria `ptpf-chia1` (`ptpf-cod`); secondaria `ptpf-chia2` (`ptpf-stm`+`ptpf-chia1`); accesso dinamico	Anagrafica periferiche di stampa: codice, descrizione, comando attivazione (`ptpf-att`), indirizzo locale (`ptpf-ind`), stampante collegata (`ptpf-stm`), flag rete (`ptpf-fl-net`), flag forza logo (`ptpf-fl-logo`)
PRNTSTMP	`ptst-chia1` (`ptst-cod`)	Anagrafica stampanti (lettura per validare la stampante collegata e leggerne la descrizione)

COPY incluse¶

Working-Storage¶

cogt24.wrk, wstato.cpy, wgrave.cpy, wgrid.cpy, wopenf.cpy, wnscr.cpy, cogazien.cpy, utilgdad.cpy, utilt22.cpy

Linkage¶

wcont.cpy, wcont1.cpy, utilt24.cpy

Procedure Division¶

cogt24.decla, cogt24-01.scr (screen), stato1.cpy, stato.cpy, winmsg.cpy, grave.cpy, opengen.cpy, mmmask.cpy, utilgrid.cpy, cogt24.prc

Le routine di I/O su PRNTPERF (st-, rdnxt-, rd-, wr-, rwr-, del-prntperf) e su PRNTSTMP sono incluse tramite la catena di COPY generata (.k01).

CALL a sottoprogrammi¶

Programma	Scopo
GRIDADMN	Gestione griglia (Prepara, Svuota-Tutto, Add-Record, Modify-Record) e personalizzazione colonne (Shift-F4)
COGT22	Selezione stampante da collegare alla periferica (F8 sul campo stampante), copybook `utilt22.cpy`

Il programma e' a sua volta richiamabile via CALL come selezione periferica (utilt24.cpy).

Configurazioni RNEWCONF¶

Il programma non contiene un paragrafo x99-confi e non legge chiavi RNEWCONF applicative.

Note tecniche¶

Collegamento alla stampante: ptpf-stm lega la periferica a una stampante di COGT22; attraverso di essa la periferica eredita le caratteristiche del modulo e, via COGT23, le emulazioni supportate con le relative stringhe di attivazione.
Rete vs locale: ptpf-fl-net = "X" marca la periferica come di rete (in griglia "periferica di rete"), altrimenti locale; ptpf-att e ptpf-ind contengono comando di attivazione e indirizzo locale.
Forza logo: ptpf-fl-logo (default a k-yes per le nuove periferiche) indica se la periferica prevede la stampa del logo aziendale.
Chiave secondaria per stampante: PRNTPERF ha una chiave alternata ptpf-stm+ptpf-cod che consente di reperire le periferiche collegate a una determinata stampante.
Doppia veste (menu / lookup): discriminata da w-dc-called tramite i campi t24-called/t24-caller del copybook utilt24.cpy.