EPICBKUP Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=DLYBKUP2,CLASS=P,DISP=D
* $$ LST CLASS=J,DISP=H,DEST=*,RBS=500
* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
// JOB DLYBKUP2
/. C
/. C 02/07/96 RAM  CONVERTED FSP TO PRD VERSION FOR AUTO IMPL.
/. C 11/05/94 DLG  CONVERTED FSP TO PRD VERSION FOR AB2 IMPL.
/. C
/*
// OPTION LOG,NODUMP
// ASSGN SYS000,SYSRDR
/*
/. STEP010
* STEP=010  PGM=TSIDOFD    CREATE SD FILE BKUP XFER LIST
// DLBL OUTPUT,'$$$.EPIC.OFD.XFER.OFL.PRD'
// EXEC TSIDOFD
 INCLUDE (DSN='PRD.D5.PERS.POLICY.CHECK.SYSTEM',VER=1)
 INCLUDE (DSN='PRD.PNDCSH.SORTED.CASH',VER=1)
 INCLUDE (DSN='PRD.NONCASH.TRANS',VER=1)
 INCLUDE (DSN='PRD.BILL.CASH.TRANS',VER=1)
 INCLUDE (DSN='PRD.BILL.NOTICE.TRANS.CASH',VER=1)
 INCLUDE (DSN='PRD.STOP.START.TRANS',VER=1)
 INCLUDE (DSN='PRD.STOP.START.CASH',VER=1)
 INCLUDE (DSN='PRD.NEXT.ACTION.CASH',VER=1)
 INCLUDE (DSN='PRD.ACCT.MASTER.REORG',VER=1)
 INCLUDE (DSN='PRD.AUDIT.MASTER.REORG',VER=1)
 INCLUDE (DSN='PRD.AUDIT.HISTORY',VER=1)
 INCLUDE (DSN='PRD.EXCEPTION.DATA.CASH',VER=1)
 INCLUDE (DSN='PRD.EXCEPTION.REPORT.CASH',VER=1)
/*
/. STEP020
* STEP=020  PGM=TSIDOFL    SAVE SD EPIC FILES
// TLBL OUTPUT,'PRD.DAILY.CRITPOL',,,,,,2
// UPSI 10000000
* //IJSYSIN DD DSN='$$$.EPIC.OFD.XFER.OFL.PRD',DISP=(OLD,DELETE,KEEP)
// ASSGN SYS000,DISK
// EXEC TSIDOFL
/*
/&
* DJDE COPIES=1,JDE=DFLT,DUPLEX=YES,END;
* $$ EOJ
 
 
* $$ JOB JNM=DLYRSTR2,CLASS=P,DISP=H
* $$ LST CLASS=J,DISP=H,DEST=*
// JOB DLYRSTR2
/*
/. STEP030
* STEP=030  PGM=TSIDONL   RESTORE ACTDAILY EPIC SD FILES
// TLBL INPUT,'PRD.DAILY.CRITPOL',,,,,,2
// UPSI 10000000   THIS RESTORES ** ALL ** DATASETS (SYSIPT IGNORED)
// EXEC TSIDONL
/*
/&
* DJDE COPIES=1,JDE=DFLT,DUPLEX=YES,END;
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//EPICBKUP JOB (EPICBKUP),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
//* STEP=010  PGM=TSIDOFD    CREATE SD FILE BKUP XFER LIST
//*/. STEP010
//*
//*  --> PGM=TSIDOFD  <-- DELETED
//*
//* STEP=020  PGM=TSIDOFL    SAVE SD EPIC FILES
//*/. STEP020
//*
//*     STEP0010  PGM=ADRDSSU                                           TSIDOFL
//*
//STEP0010 EXEC PGM=ADRDSSU
//* MODULE TSIDOFL PROCESSED BY PLUG-IN JCLTDOFL
//* SD I            A          'PRD.D5.PERS.POLICY.CHECK.SYSTEM'        BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.D5.PERS.POLICY.CHECK.SYSTEM
//* SD I            A          'PRD.PNDCSH.SORTED.CASH'                 BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.PNDCSH.SORTED.CASH
//* SD I            A          'PRD.NONCASH.TRANS'                      BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.NONCASH.TRANS
//* SD I            A          'PRD.BILL.CASH.TRANS'                    BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.BILL.CASH.TRANS
//* SD I            A          'PRD.BILL.NOTICE.TRANS.CASH'             BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.BILL.NOTICE.TRANS.CASH
//* SD I            A          'PRD.STOP.START.TRANS'                   BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.STOP.START.TRANS
//* SD I            A          'PRD.STOP.START.CASH'                    BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.STOP.START.CASH
//* SD I            A          'PRD.NEXT.ACTION.CASH'                   BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.NEXT.ACTION.CASH
//* SD I            A          'PRD.ACCT.MASTER.REORG'                  BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.ACCT.MASTER.REORG
//* SD I            A          'PRD.AUDIT.MASTER.REORG'                 BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.AUDIT.MASTER.REORG
//* SD I            A          'PRD.AUDIT.HISTORY'                      BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.AUDIT.HISTORY
//* SD I            A          'PRD.EXCEPTION.DATA.CASH'                BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.EXCEPTION.DATA.CASH
//* SD I            A          'PRD.EXCEPTION.REPORT.CASH'              BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PRD.EXCEPTION.REPORT.CASH
//* MT O                       'PRD.DAILY.CRITPOL'                      BACKUP
//OUTPUT   DD  DSN=MVS.PRD.DAILY.CRITPOL(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE,
//             VOL=(,RETAIN)
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 DUMP -
   DATASET( -
     INCLUDE( -
       MVS.PRD.D5.PERS.POLICY.CHECK.SYSTEM -
       MVS.PRD.PNDCSH.SORTED.CASH -
       MVS.PRD.NONCASH.TRANS -
       MVS.PRD.BILL.CASH.TRANS -
       MVS.PRD.BILL.NOTICE.TRANS.CASH -
       MVS.PRD.STOP.START.TRANS -
       MVS.PRD.STOP.START.CASH -
       MVS.PRD.NEXT.ACTION.CASH -
       MVS.PRD.ACCT.MASTER.REORG -
       MVS.PRD.AUDIT.MASTER.REORG -
       MVS.PRD.AUDIT.HISTORY -
       MVS.PRD.EXCEPTION.DATA.CASH -
       MVS.PRD.EXCEPTION.REPORT.CASH -
            )) -
   SPHERE -
   SHARE -
   OUTDD(OUTPUT)
/*
//*
//* DJDE COPIES=1,JDE=DFLT,DUPLEX=YES,END;
//* STEP=030  PGM=TSIDONL   RESTORE ACTDAILY EPIC SD FILES
//*/. STEP030
//*
//*     STEP0020  PGM=ADRDSSU                                           TSIDONL
//*
//STEP0020 EXEC PGM=ADRDSSU
//* MODULE TSIDONL PROCESSED BY PLUG-IN JCLTDOFL
//* MT I                       'PRD.DAILY.CRITPOL'                      RESTORE
//INPUT    DD  DSN=MVS.PRD.DAILY.CRITPOL(+1),
//             DISP=SHR
//* SD O            A          '*'                                      RESTORE
//#RESTORE DD  DUMMY,DSN='**'
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 RESTORE -
   INDD(INPUT) -
   DATASET( -
     INCLUDE( -
       ** -
            )) -
   SPHERE -
   REPLACE
/*
//
   

Return to the Sample Job Stream List