Vai a pag. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Gestione di Tabelle in COBOL - 3

Caricamento della Tabella

...
CARICA SECTION.
IN-CARICA.

   *    Riceve la quantità degli elementi
   *    da caricare in tabella (Massimo 30)

     ACCEPT QUANT.
     
   *    Carica la tabella con i dati di input

     PERFORM VARYING CONTA
             FROM 1 BY 1 UNTIL CONTA > QUANT
       ACCEPT CODART (CONTA)
       ACCEPT PZUNIT (CONTA)
       ACCEPT DESCRI (CONTA)
     END-PERFORM.
FI-CARICA.  EXIT.
...

Gli Elementi della Tabella

Si può fare riferimento alla riga della tabella nel suo complesso, come anche ai singoli attributi dell'elemento. In ogni caso deve sempre essere specificato l'indice:

DISPLAY ARTICOLO (2)
                       visualizza

61320R014500Saldatore elettrico

DISPLAY DESCRI (2)   

  visualizza

                 Saldatore elettrico

N.Brugaletta

COBOL 19