TM-nomegrid-DATI |
  
|
TM-nomegrid-DATI |
|
Gestione griglie modificabili
Gruppo di dati che contiene tutte le informazioni gestite da una griglia modificabile, più alcuni dati di controllo per la gestione della stessa.
Vediamo un esempio che contiene tutte le casistiche di dato previste.
**---------------------------------------------------------------**
** Gruppi di dato specifici per grid-2
**---------------------------------------------------------------**
78 k-max-ele-grid-2 value 10.
01 tm-grid-2-dati.
02 tm-grid-2-dati-pnt pic 9(08).
03 tm-2-fl-riga-mod-sav pic x(01).
03 tm-2-vf-sav pic x(01).
03 tm-2-pag-cod-sav pic 9(02).
03 tm-2-pag-des-sav pic x(30).
03 tm-2-check-sav pic x(01).
03 tm-2-vet-cod-sav pic 9(05).
03 tm-2-vet-des-sav pic x(40).
03 tm-2-mer-cm-sav pic x(09).
03 tm-2-mer-dm-sav pic x(40).
03 tm-2-cg-cod-sav pic x(10).
03 tm-2-cg-des-sav pic x(40).
03 tm-2-ora-sav pic 9(04).
03 tm-2-ca-cod-sav pic x(10).
03 tm-2-ca-des-sav pic x(40).
03 tm-2-gcv-sav pic x(006).
03 tm-2-gca-sav pic x(001).
02 tm-grid-2-dati-ele occurs 0 to k-max-ele-grid-2
depending on tm-grid-2-dati-pnt.
03 tm-2-fl-riga-mod pic x(01).
03 tm-2-vf pic x(01).
03 tm-2-pag-cod pic 9(02).
03 tm-2-pag-des pic x(30).
03 tm-2-check pic x(01).
03 tm-2-vet-cod pic 9(05).
03 tm-2-vet-des pic x(40).
03 tm-2-mer-cm.
04 tm-2-mer-cm-gru pic x(02).
04 tm-2-mer-cm-sot pic x(02).
04 tm-2-mer-cm-cod pic 9(05).
03 tm-2-mer-dm pic x(40).
03 tm-2-cg-cod.
04 tm-2-cg-mas pic 9(02).
04 tm-2-cg-con pic 9(02).
04 tm-2-cg-sot pic 9(06).
03 tm-2-cg-des pic x(40).
03 tm-2-ora pic 9(04).
03 tm-2-ca-cod.
04 tm-2-ca-l1 pic 9(02).
04 tm-2-ca-l2 pic 9(02).
04 tm-2-ca-l3 pic 9(06).
03 tm-2-ca-des pic x(40).
03 tm-2-gcv-dati.
04 tm-2-gcv-vf pic x(01).
04 tm-2-gcv-pag-cod pic x(01).
04 tm-2-gcv-vet-cod pic x(01).
04 tm-2-gcv-mer pic x(01).
04 tm-2-gcv-cg-cod pic x(01).
04 tm-2-gcv-ca-cod pic x(01).
03 tm-2-gca-dati.
04 tm-2-gca-ora pic x(01).
Descrizione del contenuto