COGB64 - Canali di Spedizione
| Campo |
Valore |
| Sorgente |
cbl/cogb64.cbl |
| Tipo |
Interattivo (griglia con aggiornamento inline) |
| Richiamato da |
Menu / Chiamata da altri programmi (modalita' selezione) |
Descrizione
Programma di gestione tabellare dei canali di spedizione. I dati sono memorizzati nella tabella generale COGTABEL con tipo "CS". Supporta due modalita':
- Aggiornamento (autonomo): inserimento, modifica e cancellazione diretta in griglia
- Selezione (called): permette di scegliere un canale e restituirlo al chiamante tramite la linkage
util-cogb64
Utilizza il pattern "griglia con file di transito" per la gestione dei dati con ordinamento e filtro.
File e tabelle
| File/Tabella |
Modalita' |
Descrizione |
| FEURTAB |
I-O |
File aziendale parametri |
| COGTABEL |
I-O |
Tabella generale - tipo "CS" per canali di spedizione |
Copybook principali
| Copybook |
Sezione |
Descrizione |
cogb64.select |
FILE-CONTROL |
Select dei file specifici |
cogb64.fd |
FILE SECTION |
FD dei file specifici |
cogb64.wrk |
WORKING-STORAGE |
Variabili generate da Screens |
cogb64.tm |
WORKING-STORAGE |
Campi tab-maschera generati da Screens |
cogb64.imppredf-wrk |
WORKING-STORAGE |
Working per filtri predefiniti |
cogb64-01.scr |
SCREEN SECTION |
Definizione maschera |
cogb64.decla |
PROCEDURE |
Declaratives |
utilcogb64.cpy |
LINKAGE |
Struttura di interscambio per modalita' called |
utilimppredf.cpy |
WORKING-STORAGE |
Utility filtri predefiniti |
wgrid.cpy |
WORKING-STORAGE |
Supporto griglie |
utilgdad.cpy |
WORKING-STORAGE |
Utility GRIDADMN |
utilu20.cpy |
WORKING-STORAGE |
Utility U20 |
Logica di elaborazione
Inizializzazione
- Verifica abilitazione utente (
ctr-abil)
- Determina modalita' operativa: se
cogb64-called = k-program-id e cogb64-caller valorizzato → modalita' Selezione ("S"), altrimenti Aggiornamento ("A")
- Configura tasti funzione in base alla modalita'
- Crea file di transito per la griglia, carica i dati da COGTABEL tipo "CS"
Caricamento dati (z-grid-det-crea-transito)
- Legge COGTABEL con
st-notmin per tipo "CS"
- Per ogni record: scrive un record di transito con codice e descrizione
- Il file di transito viene poi riordinato e caricato nella griglia
Gestione griglia (a-grid)
- Invio (modalita' Selezione): restituisce codice e descrizione al chiamante via
cogb64-out-cod / cogb64-out-des
- F3 (modalita' Aggiornamento): valida tutte le righe e salva
- F3 (modalita' Called): alterna tra Selezione e Aggiornamento, con richiesta salvataggio
- Ctrl+A: inserisce riga vuota nel file di transito
- Ctrl+E: svuota i dati della riga selezionata (cancellazione logica)
Aggiornamento (b-aggiorna)
Scorre il file di transito:
- Riga con progressivo > 0 e codice vuoto → cancellazione: legge COGTABEL con codice precedente e cancella
- Riga con flag modifica "S" → aggiornamento: legge/crea record COGTABEL tipo "CS" con wr-cogtabel / rwr-cogtabel
Cancellazione (c-cancella-record)
- Legge il record COGTABEL con il codice precedente (
t-gor-r-cod-prec) e lo cancella con del-cogtabel
Chiamate a sottoprogrammi
| Programma |
Funzione |
| GRIDADMN |
Gestione avanzata griglia (configurazione colonne, popup) |
| W$MENU |
Gestione menu popup contestuale |