
Multi-Dataset Processing
7-22 User Reference
Connectivity Systems, Inc.—Copyright © 2006
Use Pursuant to Company Instructions
// 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
/*
/&
Commentaires sur ces manuels