KFK2666.pdf

-392-
Beispiel
DCL ADESCRIPTOR;
10-46
DCL 1 PUNKT BASED(P), 2 FARBE BIN FIXED(15), 2 X(3);
DCL 1 PUN DYHAI'lIC (A), 2 N, 2 Y ( 3) ;
DCL (P) POH?rEH;
DCL 1 FELD (32000) DASED(P) LIKE PUNKT;
DEFINE A, (100,100,100) AS(PUN);
DO I :::: 1 '1'0 100;
DO I -- 1 'ro 100;
END;
END;
FIX A(I,J) SET(P) ON(l);
DO K :::: 1 '1'0 100;
END;
FELD(K) .FARDE :::: •••••.
FELD(K).X:::: ••••••• ;
Die Felder A(I,J) und das Feld FELD üLerlagern
sich. Der Zugriff ist sehr effektiv.
LOOSE A(I,J)
FIX A(I,J) SET(P) ON(50);
PUT LIST (PUNKT) ;
Das Feld A(I,J,50) und die Struktur
PUNKT überlagern sich.
LOOSE A (I ,J) ;
RESET A;