Return to the Sample Job Stream List

RBCURHDL Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=RBCURHDL,CLASS=7,PRI=5
* $$ LST CLASS=R,DEST=*,COPY=1
// JOB RBCURHDL
*      LOAD PREVIOUS CURRENT DATA BASE
// ASSGN SYSLST,00E
// ASSGN SYS045,DISK,VOL=TREAS5,SHR
// EXEC IDCAMS,SIZE=AUTO
   DEL (RB101-C1-CNTL) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
   DEL (RB101-1.DATA) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
   DEL (RB101-2) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
  /* DEFINE THE HIDAM DATA CLUSTER FOR CURRENT DATA
         DEFINE CLUSTER -
              (NAME(RB101-1.DATA) -
              NONINDEXED -
              RECSZ (2038,2038) -
              CISZ (2048) -
              SHR (1 3) -
              BLOCKS(600000 620) -
              VOLUMES(TREAS7)) -
         CAT (TREAS.UCAT.RB RBCAT)
  /* DEFINE THE HISAM PRIMARY INDEX FOR EMPLOYEE HISTORY */
         DEFINE CLUSTER -
              (NAME(RB101-2) -
              INDEXED KEYS (10 10) -
              RECSZ (22 22) -
              CISZ (2048) -
              SHR (1 3) -
              BLOCKS (58000 620) -
              FREESPACE (20 10) -
              VOLUMES (TREAS7)) -
         DATA (NAME(RB101-2.DATA)) -
         INDEX (NAME(RB101-2.INDEX)) -
         CAT (TREAS.UCAT.RB RBCAT)
/*
*    PREREORG INITIAL LOAD OF CURRENT DATA BASE
// ASSGN SYSLST,00E
// OPTION PARTDUMP,NOSYSDMP,LOG
// ASSGN SYS045,DISK,VOL=TREAS5,SHR
// ASSGN SYS012,DISK,VOL=TREAS7,SHR
// DLBL CONTROL,'RB101-C1.CNTL',0,VSAM,RECORDS=10,RECSIZE=80,          X
               DISP=(NEW,KEEP),CAT=RBCAT
// EXTENT SYS012,TREAS7
// EXEC DLZRRC00,SIZE=712K
ULU,DLZURPR0
DBIL=RCURDBD
OPTIONS=(NOPUNCH,STAT,SUMM)
/*
*  JOB RBCURHDL    RELOAD CURRENT DATA BASE
// ASSGN SYS045,DISK,VOL=TREAS5,SHR
*    // PAUSE  ASSGN SYS011 TO AVAILABLE TAPE DRIVE
// ASSGN SYS011,670
*  // ASSGN SYS011,681,ALT
*  // ASSGN SYS011,690,ALT
// TLBL HDUNLD1,'RB101-1.FILE'
// DLBL CONTROL,'RB101-C1.CNTL',,VSAM,DISP=(OLD,KEEP),CAT=RBCAT
// DLBL RCURNT,'RB101-1.DATA',,VSAM,CAT=RBCAT
// DLBL RINXCUR,'RB101-2',,VSAM,CAT=RBCAT
// EXEC DLZRRC00,SIZE=712K
ULU,DLZURGL0,RCURDBD
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//RBCURHDL JOB (RBCURHDL),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*      LOAD PREVIOUS CURRENT DATA BASE
//*
//*     STEP0010  PGM=IDCAMS
//*
//STEP0010 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//*    VS    I RBCAT    A          'RB101-1.DATA'                       DELETE
//#DELETE  DD  DUMMY,DSN=MVSDB.RB101-1.DATA
//*    VS    I RBCAT    A          'RB101-2'                            DELETE
//#DELETE  DD  DUMMY,DSN=MVSDB.RB101-2
//* VS VS ES O RBCAT    A          'RB101-1.DATA'                       DEFCL
//#DEFCL   DD  DUMMY,DSN=MVSDB.RB101-1.DATA
//* VS VS KS O RBCAT    A          'RB101-2'                            DEFCL
//#DEFCL   DD  DUMMY,DSN=MVSDB.RB101-2
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
   DEL (MVSDB.RB101-1.DATA) CL                     PURGE
 IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
   DEL (MVSDB.RB101-2) CL                     PURGE
 IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
  /* DEFINE THE HIDAM DATA CLUSTER FOR CURRENT DATA
         DEFINE CLUSTER -
              (NAME(MVSDB.RB101-1.DATA) -
              NONINDEXED -
              RECSZ (2038,2038) -
              CISZ (2048) -
              SHR (1 3) -
              TRACKS(6000   7  ) -
              VOLUMES(TREAS7))
  /* DEFINE THE HISAM PRIMARY INDEX FOR EMPLOYEE HISTORY */
         DEFINE CLUSTER -
              (NAME(MVSDB.RB101-2) -
              INDEXED KEYS (10 10) -
              RECSZ (22 22) -
              CISZ (2048) -
              SHR (1 3) -
              TRACKS (580   7  ) -
              FREESPACE (20 10) -
              VOLUMES (TREAS7))
/*
//*
//*    PREREORG INITIAL LOAD OF CURRENT DATA BASE
//*
//*     STEP0020  PGM=DFSURPR0                                          DLZRRC00
//*
//STEP0020 EXEC PGM=DFSRRC00,PARM=(ULU,DFSURPR0)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
//        INCLUDE MEMBER=IMSFILES
//* SD VS    O RBCAT      CONTROL  'RB101-C1.CNTL'
//DFSURCDS DD  DSN=MVSDB.RB101-C1.CNTL,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(1,1),RLSE),
//             UNIT=SYSDA
//* CD I SYSIPT 00C
//SYSIN    DD  *
DBIL=RCURDBD
OPTIONS=(NOPUNCH,STAT,SUMM)
/*
//*
//*  JOB RBCURHDL    RELOAD CURRENT DATA BASE
//*    // PAUSE  ASSGN SYS011 TO AVAILABLE TAPE DRIVE
//*  // ASSGN SYS011,681,ALT
//*  // ASSGN SYS011,690,ALT
//*
//*     STEP0030  PGM=DFSURGL0                                          DLZRRC00
//*
//STEP0030 EXEC PGM=DFSRRC00,PARM=(ULU,DFSURGL0,RCURDBD)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
//        INCLUDE MEMBER=IMSFILES
//* MT I              HDUNLD1  'RB101-1.FILE'
//DFSUINPT DD  DSN=MVSDB.RB101-1.FILE,
//             DISP=SHR
//* SD VS    I RBCAT      CONTROL  'RB101-C1.CNTL'
//DFSURCDS DD  DSN=MVSDB.RB101-C1.CNTL,
//             DISP=OLD
//* VS VS DB U RBCAT               'RB101-1.DATA'                       RCURDBD
//RCURNT   DD  DSN=MVSDB.RB101-1.DATA,
//             DISP=SHR
//* VS VS DB U RBCAT               'RB101-2'                            RX5DBD
//RINXCUR  DD  DSN=MVSDB.RB101-2,
//             DISP=SHR
//* SD O SYS013 UA  DFSURWF1     /0/0 OPT=Y WORKFIL
//*
//SCRATCH  EXEC PGM=IEFBR14
//*
//DEL001   DD  DSN=MVSDB.RB101-C1.CNTL,DISP=(MOD,DELETE)
//
   

Return to the Sample Job Stream List