Return to the Sample Job Stream List

RBBIOHD1 Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=RBBIOHD1,CLASS=B,DISP=D
* $$ LST CLASS=R,DEST=*
// JOB RBBIOHDL DELETE/DEFINE
// ASSGN SYSLST,00E
// DLBL IJSYSCT,'VSAM.MASTER.CATALOG',,VSAM
// DLBL BBCAT,'TREAS.UCAT.BB',,VSAM,CAT=IJSYSCT
// DLBL MISCAT,'TREAS.UCAT.MISC',,VSAM,CAT=IJSYSCT
// DLBL RETCAT,'TREAS.UCAT.RET',,VSAM,CAT=IJSYSCT
// DLBL RBCAT,'TREAS.UCAT.RB',,VSAM,CAT=IJSYSCT
// DLBL IASCAT,'TREAS.UCAT.IAS',,VSAM,CAT=IJSYSCT
// DLBL VSESP,'VSESP.USER.CATALOG',,VSAM,CAT=IJSYSCT
// EXEC IDCAMS,SIZE=AUTO
   /* DEFINE THE HISAM SECONDARY INDEX FOR RETIREMENT MASTER */
   DEL (RB100-3) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
   DEL (RB100-4) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
   DEL (RB100-W7.PFIX) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
   DEL (RB100-W7.PFXA) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
   DEL (RB100-W7.PFXB) CL CAT (TREAS.UCAT.IAS IASCAT) PURGE
   DEL (RB100-W7.PFXC) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
   DEL (RB100-W7.PFXD) CL CAT (TREAS.UCAT.MISC MISCAT) PURGE
   DEL (RB100-W8.PFIX) CL CAT (TREAS.UCAT.IAS IASCAT) PURGE
   DEL (RB100-W8.SIDX) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
   /* THE KEY TO THIS INDEX IS ANO */
         DEFINE CLUSTER -
              (NAME(RB100-3) -
              INDEXED KEYS (9 10) -
              RECSZ (20 20) -
              CISZ (2048) -
              SHR (1 3) -
              BLOCKS (90578 6200) -
              FREESPACE (20 10) -
              VOLUMES (TREAS6)) -
         DATA (NAME(RB100-3.DATA)) -
         INDEX (NAME(RB100-3.INDEX)) -
         CAT (TREAS.UCAT.RB RBCAT)
 /*DEFINE THE HISAM SECONDARY INDEX FOR RETIREMENT MASTER */
 /*  THE KEY TO THIS INDEX IS NAME */
         DEFINE CLUSTER -
              (NAME(RB100-4) -
              INDEXED KEYS (16 10) -
              RECSZ (40 40) -
              CISZ (2048) -
              SHR (1 3) -
              BLOCKS (175000 6200) -
              FREESPACE (20 10) -
              VOLUMES (TREAS6)) -
         DATA (NAME(RB100-4.DATA)) -
         INDEX (NAME(RB100-4.INDEX)) -
         CAT (TREAS.UCAT.RB RBCAT)
/*
// OPTION LOG
// DLBL IJSYSCT,'VSAM.MASTER.CATALOG',,VSAM
// DLBL BBCAT,'TREAS.UCAT.BB',,VSAM,CAT=IJSYSCT
// DLBL RETCAT,'TREAS.UCAT.RET',,VSAM,CAT=IJSYSCT
// DLBL RBCAT,'TREAS.UCAT.RB',,VSAM,CAT=IJSYSCT
// DLBL IASCAT,'TREAS.UCAT.IAS',,VSAM,CAT=IJSYSCT
// DLBL MISCAT,'TREAS.UCAT.MISC',,VSAM,CAT=IJSYSCT
// ASSGN SYS013,DISK,VOL=TREAS6,SHR
// DLBL WRKIN01,'RBWORK',,VSAM,DISP=(OLD,KEEP),CAT=RBCAT
// EXTENT SYS013,TREAS6
// ASSGN SYS001,DISK,VOL=TREAS6,SHR
// DLBL SORTWK1,'RB100-W7.PFIX',0,VSAM,RECORDS=(800000 10000),         X
               RECSIZE=86,DISP=(NEW,DATE),CAT=RBCAT
// EXTENT SYS001,TREAS6
// ASSGN SYS002,DISK,VOL=TREAS2,SHR
// DLBL SORTWK2,'RB100-W7.PFXA',0,VSAM,RECORDS=(1500000 10000),        X
               RECSIZE=86,DISP=(NEW,DATE),CAT=RETCAT
// EXTENT SYS002,TREAS2
// ASSGN SYS003,DISK,VOL=TREAS4,SHR
// DLBL SORTWK3,'RB100-W7.PFXB',0,VSAM,RECORDS=(2000000 10000),        X
               RECSIZE=86,DISP=(NEW,DATE),CAT=IASCAT
// EXTENT SYS003,TREAS4
// ASSGN SYS004,DISK,VOL=TREAS2,SHR
// DLBL SORTWK4,'RB100-W7.PFXC',0,VSAM,RECORDS=(2500000 10000),        X
               RECSIZE=86,DISP=(NEW,DATE),CAT=RETCAT
// EXTENT SYS004,TREAS2
// ASSGN SYS005,DISK,VOL=TREAS9,SHR
// DLBL SORTWK5,'RB100-W7.PFXD',0,VSAM,RECORDS=(2200000 10000),        X
               RECSIZE=86,DISP=(NEW,DATE),CAT=RBCAT
// EXTENT SYS005,TREAS9
// ASSGN SYS010,DISK,VOL=TREAS1,SHR
// DLBL INTRMED,'RB100-W8.PFIX',0,VSAM,RECORDS=(1500000 10000),        X
               RECSIZE=86,DISP=(,DATE),CAT=IASCAT
// EXTENT SYS010,TREAS1
// ASSGN SYS014,DISK,VOL=TREAS9,SHR
// DLBL INDXWRK,'RB100-W8.SIDX',0,VSAM,RECORDS=(3500000 15000),        X
               RECSIZE=86,DISP=(NEW,KEEP),CAT=RBCAT
// EXTENT SYS014,TREAS9
// ASSGN SYS012,DISK,VOL=TREAS5,SHR
// DLBL CONTROL,'RB100-C1.CNTL',,VSAM,DISP=(OLD,KEEP),CAT=RBCAT
// EXTENT SYS012,TREAS5
// EXEC DLZURG10,SIZE=8000K
R        I    5
/*
*    PREFIX UPDATE UTILITY FOR SECONDARY INDEXES
// ASSGN SYSLST,00E
// OPTION LOG
// DLBL IJSYSCT,'VSAM.MASTER.CATALOG',,VSAM
// DLBL BBCAT,'TREAS.UCAT.BB',,VSAM,CAT=IJSYSCT
// DLBL RETCAT,'TREAS.UCAT.RET',,VSAM,CAT=IJSYSCT
// DLBL RBCAT,'TREAS.UCAT.RB',,VSAM,CAT=IJSYSCT
// DLBL IASCAT,'TREAS.UCAT.IAS',,VSAM,CAT=IJSYSCT
// DLBL MISCAT,'TREAS.UCAT.MISC',,VSAM,CAT=IJSYSCT
// UPSI 00000011
// ASSGN SYS011,DISK,VOL=TREAS6,SHR
// DLBL WRKIN01,'RBWORK',,VSAM,DISP=(OLD,KEEP),CAT=RBCAT
// EXTENT SYS011,TREAS6
// ASSGN SYS014,DISK,VOL=TREAS9,SHR
// DLBL INDXWRK,'RB100-W8.SIDX',,VSAM,DISP=(OLD,KEEP),CAT=RBCAT
// EXTENT SYS014,TREAS9
// DLBL RMASTR,'RB100-1.DATA',,VSAM,CAT=RBCAT
// DLBL RINXSSN,'RB100-2',,VSAM,CAT=RBCAT
// DLBL RINXANO,'RB100-3',,VSAM,CAT=RBCAT
// DLBL RINXNAM,'RB100-4',,VSAM,CAT=RBCAT
// EXEC DLZRRC00,SIZE=8000K
ULU,DLZURGP0,RMASDBD,15
U        I
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//RBBIOHD1 JOB (RBBIOHD1),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PGM=IDCAMS
//*
//STEP0010 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//*    VS    I RBCAT    A          'RB100-3'                            DELETE
//#DELETE  DD  DUMMY,DSN=MVSDB.RB100-3
//*    VS    I RBCAT    A          'RB100-4'                            DELETE
//#DELETE  DD  DUMMY,DSN=MVSDB.RB100-4
//* VS VS KS O RBCAT    A          'RB100-3'                            DEFCL
//#DEFCL   DD  DUMMY,DSN=MVSDB.RB100-3
//* VS VS KS O RBCAT    A          'RB100-4'                            DEFCL
//#DEFCL   DD  DUMMY,DSN=MVSDB.RB100-4
//* PR O
//SYSPRINT DD  SYSOUT=*
//*DLBL BBCAT,'TREAS.UCAT.BB',,VSAM,CAT=IJSYSCT
//*DLBL MISCAT,'TREAS.UCAT.MISC',,VSAM,CAT=IJSYSCT
//*DLBL RETCAT,'TREAS.UCAT.RET',,VSAM,CAT=IJSYSCT
//*DLBL VSESP,'VSESP.USER.CATALOG',,VSAM,CAT=IJSYSCT
//* CD I
//SYSIN    DD  *
   /* DEFINE THE HISAM SECONDARY INDEX FOR RETIREMENT MASTER */
   DEL (MVSDB.RB100-3) CL                     PURGE
 IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
   DEL (MVSDB.RB100-4) CL                     PURGE
 IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
   /* THE KEY TO THIS INDEX IS ANO */
         DEFINE CLUSTER -
              (NAME(MVSDB.RB100-3) -
              INDEXED KEYS (9 05) -
              RECSZ (14 14) -
              CISZ (1024) -
              SHR (1 3) -
              TRACKS (906   62  ) -
              FREESPACE (20 10) -
              VOLUMES (TREAS6))
 /*DEFINE THE HISAM SECONDARY INDEX FOR RETIREMENT MASTER */
 /*  THE KEY TO THIS INDEX IS NAME */
         DEFINE CLUSTER -
              (NAME(MVSDB.RB100-4) -
              INDEXED KEYS (16 05) -
              RECSZ (34 34) -
              CISZ (1024) -
              SHR (1 3) -
              TRACKS (1750   62  ) -
              FREESPACE (20 10) -
              VOLUMES (TREAS6))
/*
//*
//*     STEP0020  PGM=DFSURG10                                          DLZURG10
//*
//STEP0020 EXEC PGM=DFSURG10
//* MODULE DLZURG10 PROCESSED BY PLUG-IN JCLTDLI
//* SD VS    I RBCAT      CONTROL  'RB100-C1.CNTL'
//DFSURCDS DD  DSN=MVSDB.RB100-C1.CNTL,
//             DISP=SHR
//* SD VS    I RBCAT      WRKIN01  'RBWORK'
//SORTIN   DD  DSN=MVS.RBWORK,
//             DISP=SHR
//* SD VS    W IASCAT     INTRMED  'RB100-W8.PFIX'
//DFSURWF2 DD  DSN=&&DFSURWF2,
//             SPACE=(TRK,(2580,645)),
//             UNIT=SYSDA
//* MT O SYS256 IGN
//DFSURWF3 DD  DUMMY
//* SD VS    O RBCAT      INDXWRK  'RB100-W8.SIDX'
//DFSURIDX DD  DSN=MVSDB.RB100-W8.SIDX,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(6020,1505),RLSE),
//             UNIT=SYSDA
//* PR O SYSLST 00E 0001
//SYSPRINT DD  SYSOUT=R
//*DLBL BBCAT,'TREAS.UCAT.BB',,VSAM,CAT=IJSYSCT
//*DLBL RETCAT,'TREAS.UCAT.RET',,VSAM,CAT=IJSYSCT
//*DLBL IASCAT,'TREAS.UCAT.IAS',,VSAM,CAT=IJSYSCT
//*DLBL MISCAT,'TREAS.UCAT.MISC',,VSAM,CAT=IJSYSCT
//*DLBL SORTWK2,'RB100-W7.PFXA',,VSAM,CAT=RETCAT
//*DLBL SORTWK3,'RB100-W7.PFXB',,VSAM,CAT=IASCAT
//*DLBL SORTWK4,'RB100-W7.PFXC',,VSAM,CAT=RETCAT
//*DLBL SORTWK5,'RB100-W7.PFXD',,VSAM,CAT=RBCAT
//*
//*    PREFIX UPDATE UTILITY FOR SECONDARY INDEXES
//*
//*     STEP0030  PGM=DFSURUL0                                          DLZURGP0
//*
//STEP0030 EXEC PGM=DFSRRC00,PARM=(ULU,DFSURUL0)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
//        INCLUDE MEMBER=IMSFILES
//* SD VS    I RBCAT      INDXWRK  'RB100-W8.SIDX'
//DFSURIDX DD  DSN=MVSDB.RB100-W8.SIDX,
//             DISP=OLD
//* VS VS DB I RBCAT               'RB100-1.DATA'                       RMASDBD
//RMASTR   DD  DSN=MVSDB.RB100-1.DATA,
//             DISP=SHR
//* VS VS DB I RBCAT               'RB100-2'                            RX1DBD
//RINXSSN  DD  DSN=MVSDB.RB100-2,
//             DISP=SHR
//* VS VS DB I RBCAT               'RB100-3'                            RX3DBD
//RINXANO  DD  DSN=MVSDB.RB100-3,
//             DISP=SHR
//* VS VS DB I RBCAT               'RB100-4'                            RX2DBD
//RINXNAM  DD  DSN=MVSDB.RB100-4,
//             DISP=SHR
//* MT O            KSDSXXT      VB/900/0 OPT=Y
//* SD O            A          'REORG.RINXSSN'
//DFSUT01  DD  DSN=MVS.REORG.RINXSSN,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(1000,250),RLSE),
//             UNIT=SYSDA
//* SD O            A          'REORG.RINXANO'
//DFSUT02  DD  DSN=MVS.REORG.RINXANO,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(1000,250),RLSE),
//             UNIT=SYSDA
//* SD O            A          'REORG.RINXNAM'
//DFSUT03  DD  DSN=MVS.REORG.RINXNAM,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(1000,250),RLSE),
//             UNIT=SYSDA
//* PR O SYSLST 00E 0001
//SYSPRINT DD  SYSOUT=R
//* CD I SYSIPT 00C
//SYSIN    DD  *
X1MRX1DBD   RINXSSN  DFSUT01           DFSURIDX
X1MRX3DBD   RINXANO  DFSUT02           DFSURIDX
X1MRX2DBD   RINXNAM  DFSUT03           DFSURIDX
/*
//*
//*     STEP0040  PGM=DFSURRL0                                          DLZURGP0
//*
//STEP0040 EXEC PGM=DFSRRC00,PARM=(ULU,DFSURRL0)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
//        INCLUDE MEMBER=IMSFILES
//* VS VS DB U RBCAT               'RB100-1.DATA'                       RMASDBD
//RMASTR   DD  DSN=MVSDB.RB100-1.DATA,
//             DISP=SHR
//* VS VS DB U RBCAT               'RB100-2'                            RX1DBD
//RINXSSN  DD  DSN=MVSDB.RB100-2,
//             DISP=SHR
//* VS VS DB U RBCAT               'RB100-3'                            RX3DBD
//RINXANO  DD  DSN=MVSDB.RB100-3,
//             DISP=SHR
//* VS VS DB U RBCAT               'RB100-4'                            RX2DBD
//RINXNAM  DD  DSN=MVSDB.RB100-4,
//             DISP=SHR
//* SD I            A          'REORG.RINXSSN'
//DFSUIN01 DD  DSN=MVS.REORG.RINXSSN,
//             DISP=OLD
//* SD I            A          'REORG.RINXANO'
//DFSUIN02 DD  DSN=MVS.REORG.RINXANO,
//             DISP=OLD
//* SD I            A          'REORG.RINXNAM'
//DFSUIN03 DD  DSN=MVS.REORG.RINXNAM,
//             DISP=OLD
//* PR O SYSLST 00E 0001
//SYSPRINT DD  SYSOUT=R
//*DLBL BBCAT,'TREAS.UCAT.BB',,VSAM,CAT=IJSYSCT
//*DLBL RETCAT,'TREAS.UCAT.RET',,VSAM,CAT=IJSYSCT
//*DLBL IASCAT,'TREAS.UCAT.IAS',,VSAM,CAT=IJSYSCT
//*DLBL MISCAT,'TREAS.UCAT.MISC',,VSAM,CAT=IJSYSCT
//*DLBL WRKIN01,'RBWORK',,VSAM,CAT=RBCAT
//*
//SCRATCH  EXEC PGM=IEFBR14
//*
//DEL001   DD  DSN=MVSDB.RB100-W8.SIDX,DISP=(MOD,DELETE)
//DEL002   DD  DSN=MVS.REORG.RINXSSN,DISP=(MOD,DELETE)
//DEL003   DD  DSN=MVS.REORG.RINXANO,DISP=(MOD,DELETE)
//DEL004   DD  DSN=MVS.REORG.RINXNAM,DISP=(MOD,DELETE)
//
   

Return to the Sample Job Stream List