KFK2666.pdf

-296-
Beispiele
9-26
DESC POOL(5) POOL,
DESC BANK1 BANK,
INITIATE BANK(BANK1),
OPEN BANK(BANK1) OUTPUT,
INITIATE POOL(POOL(1)) TITLE('POOL1 ') SPACE(20)
IN BANK(BANK1) PASS(R,W='RW') CATALOG,
OPEN POOL(POOL(1)) TITLE('POOL1') IN BANK(BANK1)
PASS('RW') OLD KEEP OUTPUT CATALOG,
DCL PIC PICTURE '9',
00 PIC=2 TO 5,
INIT POOL(POOL(PIC)) IN PODL(POOL(1)) TITLE('POOL' /lPIC)
DATA SPACE(100),
END,