KFK2666.pdf

-384- 10-38
Beispiel
DCL (A,B) DESCRIPTORi
DCL X DYNAMICi
DEFINE A, (10) DESCRIPTORi
DO J = 1 TO 10;
DEFINE A(J),(2.-\,J) STEP(J) PRIORI'rY(J>S) AS(X)i
ENDi
DEFINE B, (2) DESCRIPTOR;
DO K = 1 TO 2;
DEFINE B(K), LIKE A;
END;
Die letzten 3 Anweisungen bewirken
dasselbe wie
DO K = 1 TO 2;
END;
DEFINE B(K), (10) DESCRIPTORi
DO I = 1 TO 10;
DEFINE B(K,J), (2-kJ) STEP(J) PRIORI'.2Y(J";7S) AS(X);
END;
RESET Tl;
RESET B;