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