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