
Processing Tape Datasets Multi-Dataset Processing Examples
Chapter 7. Running Jobs With BIM-EPIC 7-19
This example creates multiple datasets with the same DTF name. This process requires
dataset drop.
// JOB XYZ
*
* ------------------------------------------------+
* CATALOG A PRIME AND 2 SUB DSN'S +
* ------------------------------------------------+
*
// EXEC TSIDMNT
CAT 'PRIME' CYC=3 UID=KM
CAT 'SUB1' NSU='PRIME' UID=KM CYC=4
CAT 'SUB2' NSU='PRIME' UID=KM RET=14
/*
*
* ------------------------------------------------+
* CREATE A PRIME AND 2 SUB DSN'S. PROGX PERFORMS+
* 3 OPENS FOR THE DTFNAME TAPEOUT. +
* ------------------------------------------------+
*
// TLBL TAPEOUT,'PRIME',,,,,,91 64 + 16 + 8 + 3
// TLBL TAPEOUT,'SUB1',,,,,,91 64 + 16 + 8 + 3
// TLBL TAPEOUT,'SUB2',,,,,,66 64 + 2
// EXEC PROGX
/*
*
* ------------------------------------------------+
* READ A PRIME AND 2 SUB DSN'S. PROGY PERFORMS +
* 3 OPENS FOR THE DTFNAME TAPEOUT. +
* ------------------------------------------------+
*
// TLBL TAPEIN,'PRIME',,,,,,91 64 + 16 + 8 + 3
// TLBL TAPEIN,'SUB1',,,,,,91 64 + 16 + 8 + 3
// TLBL TAPEIN,'SUB2',,,,,,66 64 + 2
// EXEC PROGY
/*
*
/&
The options in use are:
Code Action
1 Rewinds the tape (for the last dataset)
2 Dismounts the tape (for the last dataset)
3 Inhibits rewind at close (for all but the last dataset)
8 Holds the drive assignment at close (for all but the last dataset)
16 Drops the TLBL (for all but the last dataset)
64 Inhibits LUB allocation (for all datasets)
The last dataset does not require the tape and drive to be held, nor does it require dataset drop.
Example 2
Komentarze do niniejszej Instrukcji