Inhalt
Index
Support Über uns
Home

1.10.1 Referenzierung von Datenfeldern




Die Datennamen in COBOL müssen bei der Deklaration nicht eindeutig sein. Werden sie im Programm angesprochen, muß durch die Adressierungsmodifizierer IN bzw. OF eine Eindeutigkeit erreicht werden.



 
Format:


Dataname1 {IN / OF} Dataname2 [{IN / OF} Dataname3 ...]




Zur Verdeutlichung hier ein Beispiel:

      *c32 ref.cob
       identification division.
       environment division.
       data division.
       working-storage section.
       01  FELD1.
        02 UFELD.
         03 WERT       PIC 9 VALUE 1.
        02 bfeld.
         03 wert       pic 9 value 2.


       01 FELD2.
        02 UFELD.
         03 WERT       PIC 9 VALUE 2.


       procedure division.


         move 5 to wert of bfeld.
         display feld1 ' ' feld2.
         move 6 to wert of ufeld in feld2.
         display feld1 ' ' feld2.
         move 7 to wert in bfeld of feld1.
         move 8 to wert in feld2.
         display feld1 ' ' feld2.
         move 9 to wert in feld1.
         accept omitted.



Bei dem Befehl

move 9 to wert in feld1.

muß ein Fehler ausgegeben werden, da wert in feld1 2-mal definiert wurde.

Die Compilierung führt zur folgenden Ausgabe:

Multiple defined Error



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


© 1980-2017 Acc Computertechnik GmbH All rights reserved.