GNRCURDB Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=GNRCURDB,CLASS=0,DISP=D
* $$ LST CLASS=R,DEST=*
// JOB GNRCURDB    POINTER CHECKER
// DLBL RCURNT,'RB101-1.DATA',,VSAM,CAT=RBCAT
// DLBL RINXCUR,'RB101-2',,VSAM,CAT=RBCAT
// EXEC DLZRRC00,SIZE=512K
DLI,DLZDLTXX,RBM02P
L   0730 STAK
S 2 2 2 2 2    RCURDBD
L        GN
EH1    OK
L   9999 GN
L        END
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//GNRCURDB JOB (GNRCURDB),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PGM=DFSDDLT0                                          DLZRRC00
//*
//STEP0010 EXEC PGM=DFSRRC00,PARM=(DLI,DFSDDLT0,RBM02P)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
//        INCLUDE MEMBER=IMSFILES
//* VS I            RMASTR       /2041/2048 OPT=Y                       RMASDBD
//* VS I            RINXSSN      /12/1024 OPT=Y                         RX1DBD
//* VS I            RINXANO      /14/1024 OPT=Y                         RX3DBD
//* VS I            RINXNAM      /34/1024 OPT=Y                         RX2DBD
//* VS VS DB I RBCAT               'RB101-1.DATA'                       RCURDBD
//RCURNT   DD  DSN=MVSDB.RB101-1.DATA,
//             DISP=SHR
//* VS VS DB I RBCAT               'RB101-2'                            RX5DBD
//RINXCUR  DD  DSN=MVSDB.RB101-2,
//             DISP=SHR
//* PR O SYSLST 00E 0001
//PRINTDD  DD  SYSOUT=R
//* CD I SYSIPT 00C
//SYSIN    DD  *
L   0730 STAK
S 2 2 2 2 2    RCURDBD
L        GN
EH1    OK
L   9999 GN
L        END
/*
//
   

Return to the Sample Job Stream List