KFK2666.pdf

-318- 9-48
Beispiel
DCL 1 RECORD,
2 NAME CHAR (10),
2 ALTER BIN FIXED (15),
2 GEHALT DEC FLOAT (6);
DESC PERS POOL;
OPEN POOL (PERS) •.••..
/ Der Pool PERS enthalte 100 Records des Typs RECORD /
SORT POOL (PERS) LRECL (16) CHAR (10);
SET POOL (PERS) NEXT (0);
CALL PRINT;
SORT POOL (PERS) LRECL (16) OFFS (10) BFI 15;
SET POOL (PERS) NEXT (0);
CALL PRINT;
PRINT: PROC;
D i = 1 T 100;
RETRIEVE POOL (PERS) T (RECORD) ;
PUT SKIP LIST (RECORD) ;
END; END PRINT;