Return to the Sample Job Stream List

RBEMRBKP Sample Job Stream

Original JCL (VSE)

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

Translated JCL (MVS)

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