CA TPX Session Management for z/OS

Expand all | Collapse all

Epic with z/VSE

  • 1.  Epic with z/VSE

    Posted 09-24-2015 09:47 AM

    Has anyone ever used Epic with z/VSE? Looking for a JCL example.



  • 2.  Re: Epic with z/VSE

    Posted 09-28-2015 03:04 PM

    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

    -OPT UTILITY,NOCYCLE

    -OPT NOSEP

    -COPY SDESDBLD,NOREP

    -END

    /*

    // RESET ALL

    // 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

    // EXEC LIBRPROG,SIZE=256K

    /*

    CLOSE SYSIPT,00C OPERATOR EOB IF THIS SHOWS AS ERROR

    /*



  • 3.  Re: Epic with z/VSE

    Posted 12-04-2015 04:36 PM

    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

     

    * //SQLIN   DD DSN=$$$.SORTWORK.FILE1,DISP=(OLD,DELETE)           

    * //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)



  • 4.  Re: Epic with z/VSE

    Posted 12-04-2015 05:59 PM

    Thanks Owen. Very helpful and I did find a good JCL example.