Inhalt
Index
Support Über uns
Home

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:

 
StufeNameAdresseLänge Inhalt
01tfeld1 - 2525 aaaaaaaaaabbbcccccccddddd
02tf11 - 1010 aaaaaaaaaa
02tf211 - 2010 bbbccccccc
05tf2111 - 13 3 bbb
05tf2214 - 20 7 ccccccc
02tf321 - 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.





Stufe 66

Zurück zu Stufe 01    Hoch zu Working-Storage Section    Weiter zu Stufe 77
Entwickler Portal Impressum AGB Kontakt


© 1980-2017 Acc Computertechnik GmbH All rights reserved.