Has anyone ever used Epic with z/VSE? Looking for a JCL example.
Found some examples in the EPIC user guide.
In particular this JCL using EPIC in restoring a member from a Librarian master file on tape.
// RESET ALL
// EXEC TSIDASS
// ASSGN SYS004,CUU <==================== Replace the CUU with the Tape Device Address. i.e. If the Tape Device is 180, //ASSGN SYS004,180
// DLBL IJSYS06,'SYS.LIBRCOPY.WORK6.===',0,SD
// EXTENT SYS006,POOLT4,1,0,1,162
// ASSGN SYS007,DISK,SHR
// DLBL IJSYS07,'SYS.LIBRCOPY.WORK7.===',0,SD
// EXTENT SYS007,POOLT4,1,0,1,162
// ASSGN SYS008,DISK,SHR
// DLBL JOBSTR,'SYS.LIBRCOPY.WORK.FILE',0,SD
// EXTENT SYS008,POOLT4,1,0,1,162
// TLBL MASTER,'LIBPROD.DAY.BKUP',,,,,,2 <==== Address where the Tape is mounted will replace the CUU
// EXEC LIBRPROG,SIZE=256K
// ASSGN SYS004,DISK,VOL=LIB34F,SHR
// DLBL MASTER,'SYS.LIBPROD.PRO.DUCTION.JCL.LIBRARY',99/366,DA
// EXTENT SYS004,LIB34F
// ASSGN SYS008,IGN
// DLBL IJSYSIN,'SYS.LIBRCOPY.WORK.FILE',0,SD
// EXTENT SYSIPT,POOLT4
// ASSGN SYSIPT,DISK,PERM,SHR
CLOSE SYSIPT,00C OPERATOR EOB IF THIS SHOWS AS ERROR
We use CA Epic with z/VSE. It's a great product, and has many features. I am guessing that you are looking for examples of CA Epic disk and tape JCL statements. Epic can use either DLBL/TLBL format JCL, which provides many extensions/enhancements to the standard DLBL/TLBL functionality, or it can be coded using CA Epic DD statements that look/perform remarkably similar to z/OS JCL. This latter option allows programmers that are familiar with z/OS JCL to code JCL for z/VSE much more easlily. Here are a couple of examples....
* //TAPEIN DD DSN=PRD.EXPCARC.BACKUP(0),DISP=OLD,
* // UNIT=CART,FREE=CLOSE,SYS004
* //CARDOUT DD DSN=$$$.SYSIPT.DATA,UNIT=DISK,DISP=(NEW,PASS)
I'd be happy to answer any further questions you have on CA Epic (and many other z/VSE products/topics)
Thanks Owen. Very helpful and I did find a good JCL example.