KFK2666.pdf

-386-
Beispiel
DCL ADESCRIPTOR;
DCL X(3) DYNAMIC(A);
DEFINE A, (10) DESCRIPTOR;
DO I = 1 '1'0 10;
DEFINE A(I), (1,2) AS(X);
EtW;
DO I = 1 TO 3;
X(4,2,l) (I) = I
END;
DES'1'ROY A ( 4 , 2) ;
10-40
Die oben implizit enthaltene Anweisung
DEFINE A(4,2), (2) AS(X); wird rück­
gängig gemacht. Der Wert X(4,2,1) (1) bis
X(4,2,1) (3) existieren nicht mehr.
DES'l'ROY A (5) ;
Die Anweisungen DO I = 1 TO 5; DEFINE
A(5,I), (2) AS(X); END; sowie DEFINE
A(5), (5) DESCR1PTOR; werden rückgängig
gemacht.
DESTROY A;
Die Anweisung DEFINE A, (10) DESCRIPTOR
wird rückgängig gemacht.
RESET A;