KFK2666.pdf

-324-
Beispiele
9-54
STORE POOl(OATAPOOl) FROM(RECORO);
STORE POOl(O) FROM(I) TO(POOl OFFSET);
OCl P PTR INIT(AOOR(STRING));
OCl STRING CHAR(SOO);
STORE POOl(O) FROM(P) lENGTH(20);
STORE POOl(POOl1) FROM(I) SET(OFFSET OF THIS RECORO);
- - -
STORE POOl(POOl2) FROM(I) TO(200) NEXT(OFFSET OF NEXT RECORO);