Vai al contenuto

COSO32 -- Tabella Servizi

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

Menu:

  • Contabilita' > Unione soci/clienti > Tabella Servizi

Scopo

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

Il programma e' strutturalmente identico a COSO31, con l'unica differenza nel valore di euta-codso1 (30 anziche' 20) e nel titolo della maschera ("Codifica Servizi Svolti").

File e Tabelle

File/Tabella Copybook Uso
COGTABEL cogfiles.cpy (euta-*) I-O -- Tabella generica, tipo 06 / codso1 30
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

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

La descrizione viene salvata in euta-descr1.

Flusso principale

Identico a COSO31: ciclo accept codice -> lettura COGTABEL -> inserimento/variazione/cancellazione. Vedi COSO31 per i dettagli del flusso.

Note

  • Struttura identica a COSO31. I due programmi differiscono solo per euta-codso1 e il titolo.
  • Usa source-computer rmcobol, maschera box inline, open1.cpy.

Documentazione tecnica -- 2026-04-28