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