Vai al contenuto

COSO31 -- Tabella Natura Giuridica

Sorgente: cbl/coso31.cbl | Tipo: Programma interattivo (character-mode) | Program-ID: COSO31

Menu:

  • Contabilita' > Unione soci/clienti > Tabella Nat.Giuridica

Scopo

Gestione della tabella Nature Giuridiche nell'ambito del modulo Unione Soci/Clienti. Utilizza la tabella generica COGTABEL con euta-tipo = 06 e euta-codso1 = 20. Supporta inserimento, modifica e cancellazione delle voci.

Il programma e' uno dei fratelli di COSO30 (gestione tabelle generiche soci), ma in versione character-mode con maschera a box statico. Usa la stessa maschera COSO30 per i riferimenti grafici (w-nome-msk = 'COSO30').

File e Tabelle

File/Tabella Copybook Uso
COGTABEL cogfiles.cpy (euta-*) I-O -- Tabella generica, tipo 06 / codso1 20
COGAZIEN cogazien.cpy Input -- Dati azienda corrente
FEURTAB feurtab.fd Tabella path file

Copybook principali

  • feurtab.fd -- SELECT per FEURTAB
  • cogtabel.fd -- SELECT per COGTABEL
  • cogazien.fd -- SELECT per COGAZIEN
  • cogfiles.cpy -- Record COGTABEL (campi euta-*)
  • cogazien.cpy -- Record azienda
  • wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy -- Working standard
  • wcont.cpy, wcont1.cpy -- Linkage standard (stringhe)
  • stato.cpy, winmsg.cpy, grave.cpy, open1.cpy, mmmask.cpy -- Procedure standard

Logica di Elaborazione

Chiave COGTABEL

La chiave del record e' composta da:

Campo Valore
euta-codr 0 (fisso)
euta-tipo 06 (fisso -- tipo "soci")
euta-codso1 20 (fisso -- sottotipo "natura giuridica")
euta-codso2 Codice digitato dall'utente (campo cod, PIC 9(03))

La descrizione viene salvata in euta-descr / euta-descr1.

Flusso principale

  1. Apertura (a000): apre i file, legge l'azienda, imposta la maschera box 7x58.
  2. Ciclo principale (a4): visualizza la maschera, chiede il codice.
  3. Accept codice (a010): se il codice esiste in COGTABEL, visualizza il record e passa a variazione; altrimenti va in inserimento.
  4. Inserimento (inserimento / i2): accept della descrizione (upper), conferma con F3, esegue WRITE su COGTABEL.
  5. Variazione (varia / v2): accept della descrizione, conferma con F3, rilegge il record (ff47zz) e esegue REWRITE.
  6. Cancellazione (deleta): chiede conferma (acc-conf), esegue DELETE su COGTABEL.

Note

  • Il programma usa source-computer rmcobol (vecchio stile), non acu-cobol.
  • La maschera e' definita inline nella working-storage come box ASCII (non tramite Screens).
  • Usa open1.cpy per l'apertura file (variante a 2 file con nf-name a 70 byte).

Documentazione tecnica -- 2026-04-28