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:
Zurück zu Darstellung der Daten in Cobol
Hoch zu Adressierung der Datenfelder in COBOL
Weiter zu Indizierung
|