Vai al contenuto

COSO37 - Tabella Cariche Sociali

Scopo

Gestione della tabella delle Cariche Sociali per l'Unione Soci. I dati sono memorizzati nella tabella generica COGTABEL (EUTA) con euta-tipo = 06 e euta-codso1 = 81. Il programma presenta una maschera a carattere (mm-1) con due campi (codice e descrizione) e consente inserimento, modifica e cancellazione di singoli record.

Contabilita' > Unione soci/clienti > Tabella Cariche Sociali

File e tabelle

File Tipo Descrizione
FEURTAB Parametri File parametri di ambiente
COGTABEL (EUTA) I-O Tabella generica, filtrata su euta-tipo = 06 e euta-codso1 = 81
COGAZIEN Input Dati azienda corrente

Copybook

File

  • feurtab.fd, cogtabel.fd, cogazien.fd — FD inline
  • COGFILES.CPY, COGTABEL.CPY, COGAZIEN.CPY — definizioni record

Working-storage standard

  • wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy

Linkage

  • WCONT.CPY, WCONT1.CPY — stringhe di comunicazione

Procedure

  • stato.cpy, msend.cpy, grave.cpy, openf.cpy, mmmask.cpy

CALL

Nessuna chiamata a sottoprogrammi.

Logica di elaborazione

  1. Inizializzazione (a000): apre i file, legge i parametri azienda (rd-azi), prepara la maschera mm-1 di 7x58 caratteri.
  2. Visualizzazione maschera (a4 / disp-msk): visualizza il titolo "Codifica Cariche Sociali" e i tasti funzione ESC/F2.
  3. Accept codice (a010 / a015): l'utente digita il codice. Su ESC esce; se codice = 0 mostra messaggio di errore.
  4. Lettura record (rd-tab): legge COGTABEL con la chiave composta (euta-tipo = 06, euta-codr = 0, euta-codso1 = 81, euta-codso2 = cod). Se non trovato salta a inserimento, altrimenti a varia.
  5. Inserimento (inserimento / i2): accept della descrizione, conferma con F3, WRITE euta-rec.
  6. Variazione (varia / v2): accept della descrizione gia' visualizzata. F3 conferma con REWRITE, F4 va a cancellazione.
  7. Cancellazione (deleta): richiede acc-conf (conferma), poi DELETE cogtabel.
  8. Uscita (fine / fin): chiude i file ed esce.

Chiave tabella

  • euta-tipo = 06
  • euta-codr = 0
  • euta-codso1 = 81
  • euta-codso2 = codice carica (PIC 9(03))

Struttura dati in memoria

cod    pic 9(03)   - codice carica
descr  pic x(40)   - descrizione (in maiuscolo)

Note tecniche

  • Programma in stile carattere legacy: usa la maschera mm-1 ridisegnata in working-storage con i caratteri di cornice DOS.
  • Source-computer/object-computer dichiarati come rmcobol (programma legacy, antecedente la conversione AcuCOBOL).
  • Usa estensivamente GO TO (stile pre-convenzioni); non rispetta le linee guida moderne sui PERFORM ... THRU.
  • Il file feurtab viene aperto da mmmask.cpy ma non viene letto/scritto direttamente.
  • Programma "gemello" di COSO36 (enti e sindacati), che usa la stessa struttura cambiando solo euta-codso1 (81 vs 80) e il titolo.
  • Ambiente di destinazione: Unione provinciale Agricoltori Bologna.