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