* $$ JOB JNM=RBEMRHDU,CLASS=8,PRI=5 * $$ LST CLASS=R,DEST=*,COPY=1 // JOB RBEMRHDU * BACKUP UP THE EMPLOYER ESDS TO TAPE // OPTION PARTDUMP,NOSYSDMP,LOG // ASSGN SYSLST,00E // ASSGN SYS045,FBA,TREAS5,SHR // DLBL REMPL,'RB106-1.DATA',,VSAM * * // PAUSE MOUNT SMALL SCRATCH TAPE ON UNIT 680 LABEL AS RB106-1.DATA * // ASSGN SYS011,680 // TLBL SYS011,'RB106-1.DATA' // ASSGN SYS012,IGN // EXEC DLZUDMP0,SIZE=150K D2 REMRDBD REMPL SYS011 SYS012 DEFINITION FOR RB106-1.DATA /* * BACKUP THE EMPLOYER KSDS TO TAPE // ASSGN SYS045,DISK,VOL=TREAS5,SHR // DLBL RINXEMR,'RB106-2',,VSAM * * // PAUSE MOUNT SMALL SCRATCH TAPE ON UNIT 680 LABEL AS RB106-2 * // ASSGN SYS011,681 // TLBL SYS011,'RB106-2' // ASSGN SYS012,IGN * // EXEC DLZUDMP0,SIZE=150K D2 RX6DBD RINXEMR SYS011 SYS012 DEFINITION FOR RB106-2 /* /& * $$ EOJ
Return to the Sample Job Stream List
//RBEMRBKP JOB (RBEMRBKP),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* BACKUP UP THE EMPLOYER ESDS TO TAPE //* //* // PAUSE MOUNT SMALL SCRATCH TAPE ON UNIT 680 LABEL AS RB106-1.DATA //* //* //* STEP0010 PGM=DFSUDMP0 DLZUDMP0 //* //STEP0010 EXEC PGM=DFSUDMP0 //* MODULE DLZUDMP0 PROCESSED BY PLUG-IN JCLTDLI //* VS VS DB I RBCAT 'RB106-1.DATA' //REMPL DD DSN=MVS.RB106-1.DATA, // DISP=SHR //* MT O SYS011 680 'RB106-1.DATA' //SYS011 DD DSN=MVSTAPE.RB106-1.DATA, // DISP=(NEW,CATLG,DELETE), // UNIT=TAPE //* MT O SYS012 IGN //SYS012 DD DUMMY //* CD I SYSIPT 00C //SYSIN DD * D2 REMRDBD REMPL SYS011 SYS012 DEFINITION FOR RB106-1.DATA /* //* //* BACKUP THE EMPLOYER KSDS TO TAPE //* //* // PAUSE MOUNT SMALL SCRATCH TAPE ON UNIT 680 LABEL AS RB106-2 //* //* //* //* STEP0020 PGM=DFSUDMP0 DLZUDMP0 //* //STEP0020 EXEC PGM=DFSUDMP0 //* MODULE DLZUDMP0 PROCESSED BY PLUG-IN JCLTDLI //* VS VS DB I RBCAT 'RB106-2' //RINXEMR DD DSN=MVS.RB106-2, // DISP=SHR //* MT O SYS011 681 'RB106-2' //SYS011 DD DSN=MVSTAPE.RB106-2, // DISP=(NEW,CATLG,DELETE), // UNIT=TAPE //* MT O SYS012 IGN //SYS012 DD DUMMY //* CD I SYSIPT 00C //SYSIN DD * D2 RX6DBD RINXEMR SYS011 SYS012 DEFINITION FOR RB106-2 /* //
Return to the Sample Job Stream List