KFK2666.pdf

-84- 4-22
Beispiel
Erläuterung
DCL 1 STR1,
2 TEIL1, 3 -----
2 TEIL2, 3 X(1000), 3 -----j
DCL 1 STR2 BASED(P),
2 X(1000), 2 -----j
P ADDR(STR1.TEIL2)j
Nach der letzten Anweisung enthalten STR1.TEIL2 und STR2 die iden­
tisch gleichen Daten. Eine Zuweisung STR2.XCS03)=1.3j ist in ih­
rer Wirkung identisch mit STR1.TEIL2.X(S03)=1.3j
Bei Verwendung von DOS kann derselbe Effekt mittels der CONNECT­
Anweisung erreicht werden.
Beispiel
Erläuterung
DCL (STR1,STR2) DESCRIPTORj
DCL X DYNAMICj
DEFINE STR1, (2,2) DESCRIPTORj
DEFINE STR1 (2,1), (1000) AS (X)j
CONNECT STR1 (2,1), STR2j
Nach der letzten Anweisung ist eine Zuweisung STR2(503) X=1.3j
in ihrer Wirkung identisch mit STR1(2,1,503) X=1.3j Die Teil-
struktur, auf die der Basisdeskriptor STR2 zeigt, ist dieselbe
wie die, auf die der Deskriptor STR1(2,1) zeigt.
Zur Auflösung einer derartigen Beziehung dient die DESTROY-Anwei­
sung.