1.10.2 Indizierung
Datenfelder, die mit der Klausel OCCURS beschrieben wurden, können mit einer Indexangabe adressiert werden.
Auch wenn dem Feld ein eigenes Indexfeld (Index) zugeordnet wurde, muß dieses zur Adressierung nicht verwendet werden.
Die Angabe des Indexwertes erfolgt in Klammern.
Beispiel:
*c32 %;slink itest.cob
identification division.
environment division.
data division.
working-storage section.
01 Feld.
02 Spalte pic 99 occurs 20 indexed j.
77 wfeld pic 9 value 3.
procedure division.
move 0 to feld.
set j to 1.
move 1 to Spalte (j)
move 2 to Spalte (wfeld - 1)
move 3 to Spalte (2 * j + 1)
move 4 to Spalte (4)
display Spalte (1) ' ' Spalte (2) ' ' Spalte (3) ' ' Spalte (4).
accept omitted.
Und hier die Ausgabe:
Zurück zu Adressierung der Daten in COBOL
Hoch zu Adressierung der Datenfelder in COBOL
Weiter zu Modifizierung
|