* $$ JOB JNM=RBFRMLOD,CLASS=6,DISP=D * $$ LST CLASS=R,DEST=* // JOB RBFRMLOD // ASSGN SYSLST,00E * DEFINE VSAM CLUSTERS FOR TRANSACTION (FRM) DATA BASE // ASSGN SYSLST,00E // OPTION PARTDUMP,NOSYSDMP,LOG // ASSGN SYS045,DISK,VOL=TREAS5,SHR // EXEC IDCAMS,SIZE=AUTO DEL (RB107-1.DATA) CL CAT (TREAS.UCAT.RB RBCAT) PURGE DEL (RB107-2) CL CAT (TREAS.UCAT.RB RBCAT) PURGE DEF CL (NAME(RB107-1.DATA) NIXD RECSZ (2038 2038) CISZ (2048) - SHR (1 3) BLK (140000 620) VOL(TREAS8)) - CAT (TREAS.UCAT.RB RBCAT) /* DEFINE THE HISAM PRIMARY INDEX FOR RETIREMENT TRANSACTION */ /* THE KEY TO THIS INDEX IS DATE/TIME */ DEF CL (NAME(RB107-2) IXD KEYS (14 10) RECSZ (28 28) CISZ (2048) - SHR (1 3) BLK (10000 620) FSPC (20 10) VOL (TREAS8)) - DATA (NAME(RB107-2.DATA)) - INDEX (NAME(RB107-2.INDEX)) - CAT (TREAS.UCAT.RB RBCAT) /* * LOAD TRANSACTION DATA BASE // ASSGN SYSLST,00E // OPTION PARTDUMP,NOSYSDMP,LOG // DLBL IJSYSUC,'TREAS.UCAT.RB',,VSAM // PAUSE MOUNT RB107-1.DATA ON TAPE UNIT 180 // ASSGN SYS011,180 // TLBL DUMPIN,'RB107-1.DATA' // ASSGN SYS012,IGN // ASSGN SYS013,IGN // ASSGN SYS005,DISK,VOL=TREASA,SHR // DLBL RFORMR,'RB107-1.DATA',,VSAM,,BUFSP=128 // EXTENT SYS005,TREASA // EXEC DLZRRC00,SIZE=250K UDR,DLZURDB0,RFRMDBD S RFRMDBD RFORMR /* * LOAD PRIMARY DATE/TIMEKSDS FROM TAPE // ASSGN SYSLST,00E // OPTION PARTDUMP,NOSYSDMP // DLBL IJSYSUC,'TREAS.UCAT.RB',,VSAM // PAUSE MOUNT RB107-2 ON TAPE UNIT 180 // ASSGN SYS011,180 // TLBL DUMPIN,'RB107-2' // ASSGN SYS012,IGN // ASSGN SYS013,IGN // ASSGN SYS006,DISK,VOL=TREASA,SHR // DLBL RINXDAT,'RB107-2',,VSAM,,BUFSP=128 // EXTENT SYS006,TREASA // EXEC DLZRRC00,SIZE=250K UDR,DLZURDB0,RFRMDBD S RX40DBD RINXDAT /* /& * $$ EOJ
Return to the Sample Job Stream List
//RBFRMLOD JOB (RBFRMLOD),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* DEFINE VSAM CLUSTERS FOR TRANSACTION (FRM) DATA BASE //* //* STEP0010 PGM=IDCAMS //* //STEP0010 EXEC PGM=IDCAMS //* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS //* VS I RBCAT A 'RB107-1.DATA' DELETE //#DELETE DD DUMMY,DSN=MVSDB.RB107-1.DATA //* VS I RBCAT A 'RB107-2' DELETE //#DELETE DD DUMMY,DSN=MVSDB.RB107-2 //* VS VS ES O RBCAT A 'RB107-1.DATA' DEFCL //#DEFCL DD DUMMY,DSN=MVSDB.RB107-1.DATA //* VS VS KS O RBCAT A 'RB107-2' DEFCL //#DEFCL DD DUMMY,DSN=MVSDB.RB107-2 //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * DEL (MVSDB.RB107-1.DATA) CL PURGE IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0 DEL (MVSDB.RB107-2) CL PURGE IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0 DEF CL (NAME(MVSDB.RB107-1.DATA)- NIXD RECSZ (2038 2038) CISZ (2048) - SHR (1 3) TRK (1400 7 ) VOL(TREAS8)) /* DEFINE THE HISAM PRIMARY INDEX FOR RETIREMENT TRANSACTION */ /* THE KEY TO THIS INDEX IS DATE/TIME */ DEF CL (NAME(MVSDB.RB107-2)- IXD KEYS (14 10) RECSZ (28 28) CISZ (2048) - SHR (1 3) TRK (100 7 ) FSPC (20 10) VOL (TREAS8)) /* //* //* LOAD TRANSACTION DATA BASE //* //* STEP0020 PGM=DFSURDB0 DLZRRC00 //* //STEP0020 EXEC PGM=DFSRRC00,PARM=(UDR,DFSURDB0,RFRMDBD) //* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI // INCLUDE MEMBER=IMSFILES //* MT I DUMPIN 'RB107-1.DATA' //DFSUDUMP DD DSN=MVSTAPE.RB107-1.DATA, // DISP=SHR //* VS VS DB U RBCAT 'RB107-1.DATA' //RFORMR DD DSN=MVSDB.RB107-1.DATA, // DISP=SHR //* O SYS256 IGN //DFSUCUM DD DUMMY //* O SYS256 IGN //DFSULOG DD DUMMY //* CD I SYSIPT 00C //SYSIN DD * S RFRMDBD RFORMR /* //* //* LOAD PRIMARY DATE/TIMEKSDS FROM TAPE //* //* STEP0030 PGM=DFSURDB0 DLZRRC00 //* //STEP0030 EXEC PGM=DFSRRC00,PARM=(UDR,DFSURDB0,RFRMDBD) //* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI // INCLUDE MEMBER=IMSFILES //* MT I DUMPIN 'RB107-2' //DFSUDUMP DD DSN=MVSTAPE.RB107-2, // DISP=SHR //* VS VS DB U RBCAT 'RB107-2' //RINXDAT DD DSN=MVSDB.RB107-2, // DISP=SHR //* O SYS256 IGN //DFSUCUM DD DUMMY //* O SYS256 IGN //DFSULOG DD DUMMY //* CD I SYSIPT 00C //SYSIN DD * S RX40DBD RINXDAT /* //
Return to the Sample Job Stream List