
Processing Tape Datasets Multi-Dataset Processing Examples
Chapter 7. Running Jobs With BIM-EPIC 7-21
This example is very similar to Example 2. It may seem more complicated than Example 2,
but the BIM-EPIC DD facility offers greater flexibility than TLBLs.
// JOB XYZ
* -----------------------------------------------------+
* CATALOG A PRIME DSN AND THREE SUB DSN'S +
* -----------------------------------------------------+
*
// EXEC TSIDMNT
CAT 'PRIME' CYC=2
CAT 'SUB1' NSU='PRIME' CYC=2
CAT 'SUB2' NSU='PRIME' CYC=2
/*
*
* ------------------------------------------------------------+
* CREATE A PRIME AND 2 SUB DSN'S USING BIM-EPIC DD FACILITY. +
* PROGX PERFORMS 3 OPENS FOR DTFNAME TAPEOUT. +
* ------------------------------------------------------------+
*
* //TAPEOUT DD DSN='PRIME(+0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // FREE=END,
* // DISP=(NEW,KEEP),
* // VOL=(,RETAIN)
* //TAPEOUT DD DSN='SUB1(+0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // FREE=END,
* // DISP=(NEW,KEEP),
* // VOL=(,RETAIN)
* //TAPEOUT DD DSN='SUB2(+0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // DISP=(NEW,KEEP),
* // VOL=(PRIVATE)
// EXEC PROGX
/*
* ----------------------------------------------------------+
* READ A PRIME AND 2 SUB DSN'S USING BIM-EPIC DD FACILITY. +
* PROGY PERFORMS 3 OPENS FOR DTFNAME TAPEIN. +
* ----------------------------------------------------------+
* //TAPEIN DD DSN='PRIME(0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // FREE=END,
* // DISP=(OLD,PASS),
* // VOL=(,RETAIN)
* //TAPEIN DD DSN='SUB1(0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // FREE=END,
* // DISP=(OLD,PASS),
* // VOL=(,RETAIN)
* //TAPEIN DD DSN='SUB2(0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // DISP=(OLD,KEEP)
// EXEC PROGY
/*
/&
Example 4
Kommentare zu diesen Handbüchern