Vai al contenuto

TEMPO106 -- Inizializzazione euta-pg-manuale su COGTABEL tipo 14

Sorgente: cbl/tempo106.cbl | Tipo: Utility a maschera | Program-ID: TEMPO106 | Autore originale: Mauro Rovatti

Scopo

Utility "una tantum" per scorrere COGTABEL con euta-tipo = 14 (tabella codici merce fornitore -- estrazioni Pirelli) e impostare per ogni record euta-pg-manuale = "N", scrivendo in tempo reale i contatori "Record letti" / "Record scritti" su maschera.

Posizione menu: Magazzino > Archivi & Tabelle > Estrazioni Pirelli > Conv. Cod. Merce Forn..

Strutture

  • File: COGTABEL aperto in i-o (chiave primaria K01)
  • Maschera locale mm-1 con riquadro 13x74 (popup di servizio) -- caricata via rd-msk-pop e visualizzata via disp-msk
  • Contatori: ctr-r-l (letti), ctr-r-s (scritti)

Flusso

  1. open-files -- apertura COGTABEL in i-o (via search-file -> sf-01)
  2. Display maschera con titolo "Inizializzo campo euta-pg-manuale"
  3. Loop di accettazione tastiera:
  4. ESC -> uscita
  5. F3 -> esegue a-elabora e attende un tasto
  6. a-elabora:
  7. move 14 to euta-tipo + st-cogtabel-notmin
  8. loop rdnxt-cogtabel finche' euta-tipo = 14
  9. per ogni record: move "N" to euta-pg-manuale + rwr-cogtabel
  10. aggiornamento online dei contatori a video
  11. Chiusura COGTABEL e ritorno

Note

  • E' una utility manutentiva del cliente Pirelli; non ha controlli di idempotenza ne' conferma
  • Usa wcont/wcont1, mmmask (standalone), wnscr, wopenf, cogazien, wgrave come da pattern legacy
  • L'output e' esclusivamente a maschera (record letti / record scritti). Nessun log persistente

Storico

Programma legacy (anni 2000) mantenuto in repository. Nessuna modifica recente. Documentazione iniziale: build 2026-06-05 (Fase 4b auto-doc).