KFK2666.pdf

Beispiel
Erläuterung
4-51
DeL STRUCT DESCRIPTOR;
DeL 1 PD rrH Dyr\IAM I C (S TRUCT) ,
2 (X,Y,Z),
2 TEXT CHAR(10) VARYINGJ
DEFINE STRUCT,('100) AS (POINT) STEP(100);
00 J=1 TO N,
RETRIEVE POOL(P(1)) TO (PDINT(J));
STDRE POOL(P(2)) FR DM (POINT(J)) SET(K);
STORE POOL(P(3)) FROM(K);
Dieses Beispiel unterscheidet sich vom vorherEehend8n nur da­
durch, daß anstelle des PL/1-Feldes von POINT-Strukturen eine
dynamische Datenstruktur benutzt wird.
4.4.10.2 Direktes Lesen und Schreiben von Daten
Die Anweisungen
und
RETRIEVE POOL(pool) TO (variable)
FRDrHkeY1) [NEXT(key 2 )] I
STORE POOL(pool) FROM (variable)
TO( keY 1) [NEXT(key 2 )];
dienen zum Lesen und Schreiben in einem Pool an anderer Stelle
als an der aktuellen Zeigerposition. Die aktuelle Zeigerposition
wird durch diese Dperationen nicht verändert. Die SET-Option gibt
die Position an, an der der Obertragungsvorgang beginnt; durch die
-113-
NEXT-Dption kann die auf das letzte übertragene Byte folgende Posi­
tion gemeldet werden. keY1 und keY2 sollten BIN FIXED(31)-Variable
sein.
Beispiel
DCL 1 POINT,
2 (X,Y,Z),
2 TEXT CHAR(10) VARYING,
ATTRIBUTE P(1) ACT(KEYEND);
KEY=1;
00 WHILE (KEY < KEYENO);
RETRIEVE POOL(P(1)) TO (POINT) FROM (KEY) NEXT (KEY);
STORE POOL(P(1)) FROM (POINT);
END;