KFK2666.pdf

Beispiel
SUBSYSTEM XXX;
DATA COMMON;
DCL 1,
2 E ENTRY INIT( E),
2-5
2 PK PTR INIT(ADDR( K)),
2 TITEL CHAR(60) VARYING;
DCL K INIT(10);
E: PROC;
END E;
END DATA;
Erläuterung
Der COMMON dieses Subsystems besteht aus
der COMMON-Struktur und den Zusatzvereinbarungen für
- die Variable K
- die Prozedur E.
Die Variable K und die Prozedur E sind in den
Moduln dieses Subsystems und in den Moduln, die mit der
Sprache dieses Subsystems erstellt werden, über die
COMMON-Struktur zugänglich.
2.4.2 Die COMMON-Struktur
-23-
Die COMMON-Struktur wird durch eine der Deklarationen in DATA COMMO
vereinbart. Sie unterscheidet sich von den übrigen dort evtl. stehe
den Deklarationen, welche Zusatzvereinbarungen darstellen, durch
folgende Merkmale:
sie muß als erste dort stehen,
es muß eine Datenstruktur sein, deren Name entweder fehlt
oder mit dem vollen Namen des Subsystems identisch ist.