Inhalt
Index
Support Über uns
Home

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:

Indextest itest



Zurück zu Adressierung der Daten in COBOL    Hoch zu Adressierung der Datenfelder in COBOL    Weiter zu Modifizierung
Entwickler Portal Impressum AGB Kontakt


© 1980-2017 Acc Computertechnik GmbH All rights reserved.