BASED-Klausel

Die BASED-Klausel kennzeichnet einen Datensatz als reine Schablone, dem kein Speicherplatz zugeordnet ist.

Format

---

BASED

---

Syntaxregeln

1. Die BASED-Klausel darf nur für Datendefinitionen in der LINKAGE SECTION mit der Stufennummer 01 oder 77 angegeben werden.

2. Die Angabe von USAGE OBJECT REFERENCE, POINTER und PROGRAM-POINTER ist nicht erlaubt. Auch Datenbeschreibungen, die der Datenbeschreibung mit der BASED-Angabe untergeordnet sind, dürfen USAGE OBJECT REFERENCE, POINTER und PROGRAM-POINTER nicht enthalten.

3. Die Angaben BASED und REDEFINES dürfen nicht zusammen verwendet werden.

Allgemeine Regel

1. Die Anfangsadresse dieses Datensatzes wird auf die vordefinierte Adresse NULL gesetzt. Eine Adresse wird erst dann zugeordnet, wenn sie explizit gesetzt wird.

Beispiel 7-4

WORKING-STORAGE SECTION.
    01 POINTER-A USAGE POINTER.
LINKAGE SECTION.
    01 DSECT-A BASED.
    02 ...
PROCEDURE DIVISION.
...
    SET ADDRESS OF DSECT-A TO POINTER-A.