KFK2666.pdf

-284- 9-14
Beispiele
OPEN POOL(POOLX) TITLE('A') IN BANK(BANK1)
OLD OUTPUT KEEP CATALOG,
OPEN POOL(POOLY) TITLE('B') IN BANK(BANK1)
OLD UPDATE KEEP CATALOG,
COPY STRUCTURE POOL(POOLY) TO POOL(POOLX),
OPEN BANK(BANK2),
COPY STRUCTURE BANK(BANK1) TO BANK(BANK2),
DCL FILE1 FILE,
DCL FILE2 FILE,
OPEN POOL(POOL1) TITLE(POOLNAME) IN BANK(Y)
MOD OUTPUT KEEP DATA,
COPY DATA FILE(FILE1) TO POOL(POOL1),
COPY DATA POOL(POOL1) TO POOL(NEW)
LRECL(800) NUMBER(10,10),
COPY DATA POOL(NEW) TO FILE(FILE2),
Anmerkung: Pool NEW muß bereits initiatisiert und ge6ffent
sein.