2.3.4.2 Stufe 66
Datenfelder können in Cobol mit folgendem Syntax redefiniert werden:
| | | | | |
Format:
66 Datenfeld1 RENAMES Datenfeld2 [THRU Datenfeld3].
| |
| | | |
Mit der Stufe 66 kann ein Feld oder ein ganzer Bereich von Feldern redefiniert werden. Wird Datenfeld3 angegeben, so wird der Speicherbereich von Datenfeld2 beginnend bis zum Ende von Datenfeld3 redefiniert.
Dies soll im folgenden Beispiel verdeutlicht werden:
Gegeben ist folgender Datenaufbau:
|
Stufe | Name | Adresse | Länge | Inhalt | 01 | tfeld | 1 - 25 | 25 | aaaaaaaaaabbbcccccccddddd | 02 | tf1 | 1 - 10 | 10 | aaaaaaaaaa | 02 | tf2 | 11 - 20 | 10 | bbbccccccc | 05 | tf21 | 11 - 13 | 3 | bbb | 05 | tf22 | 14 - 20 | 7 | ccccccc | 02 | tf3 | 21 - 25 | 5 | ddddd |
|
Beispiel:
identification division.
environment division.
data division.
working-storage section.
01 tfeld.
02 tf1 pic x(10) value all 'a'.
02 tf2.
05 tf21 pic x(3) value all 'b'.
05 tf22 pic x(7) value all 'c'.
02 tf3 pic x(5) value all 'd'.
66 ca renames tf21.
66 cb renames tf1 thru tf21.
66 cc renames tf22 thru tf3.
procedure division.
display 'tfeld ' tfeld.
display 'ca ' ca.
display 'cb ' cb.
display 'cc ' cc.
Zurück zu Stufe 01
Hoch zu Working-Storage Section
Weiter zu Stufe 77
|