Gestione di Tabelle in COBOL - 2
metodo subscripting

Esempio di Gestione di un Listino Prezzi

Implementazione della Tabella

...
01  LISTINO.
     02 ARTICOLO OCCURS 30 TIMES.
       03 CODART PIC X(6).
       03 PZUNIT PIC 9(6).
       03 DESCRI PIC X(30).
     02 QUANT    PIC 99 VALUE ZERO.
...
   

La riga Articolo verrà ripetuta al massimo 30 volte

N.Brugaletta

COBOL 18