Return to the Sample Job Stream List

RBHISHDU Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=RBHISHDU,CLASS=B,DISP=D
* $$ LST CLASS=R,DEST=*
// JOB RBHISHDU    UNLOAD HISTORY DATA BASE
// ASSGN SYSLST,00E
// ASSGN SYS010,IGN
// PAUSE MOUNT SCRATCH & ASSGN SYS011   (RB102-1.FILE)
*  // ASSGN SYS011,671
// TLBL HDUNLD1,'RB102-1.FILE'
// ASSGN SYS012,IGN
*   CHKPT=10000
// DLBL RHIST,'RB102-1.DATA',,VSAM,CAT=RBCAT
// DLBL RINXHS,'RB102-2',,VSAM,CAT=RBCAT
// EXEC DLZRRC00,SIZE=712K
ULU,DLZURGU0,RHISDBD
CHKPT=NO
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//RBHISHDU JOB (RBHISHDU),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*  // ASSGN SYS011,671
//*   CHKPT=10000
//*
//*     STEP0010  PGM=DFSURGU0                                          DLZRRC00
//*
//STEP0010 EXEC PGM=DFSRRC00,PARM=(ULU,DFSURGU0,RHISDBD)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
//        INCLUDE MEMBER=IMSFILES
//* VS VS DB I RBCAT               'RB102-1.DATA'                       RHISDBD
//RHIST    DD  DSN=MVS.RB102-1.DATA,
//             DISP=SHR
//* VS VS DB I RBCAT               'RB102-2'                            RX9DBD
//RINXHS   DD  DSN=MVS.RB102-2,
//             DISP=SHR
//* MT O              HDUNLD1  'RB102-1.FILE'
//DFSURGU1 DD  DSN=MVSDB.RB102-1.FILE,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* MT O            DFSURGU2     /0/0 OPT=Y HDUNLD2
//
   

Return to the Sample Job Stream List