* $$ JOB JNM=RBCURHDL,CLASS=7,PRI=5
* $$ LST CLASS=R,DEST=*,COPY=1
// JOB RBCURHDL
* LOAD PREVIOUS CURRENT DATA BASE
// ASSGN SYSLST,00E
// ASSGN SYS045,DISK,VOL=TREAS5,SHR
// EXEC IDCAMS,SIZE=AUTO
DEL (RB101-C1-CNTL) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
DEL (RB101-1.DATA) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
DEL (RB101-2) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
/* DEFINE THE HIDAM DATA CLUSTER FOR CURRENT DATA
DEFINE CLUSTER -
(NAME(RB101-1.DATA) -
NONINDEXED -
RECSZ (2038,2038) -
CISZ (2048) -
SHR (1 3) -
BLOCKS(600000 620) -
VOLUMES(TREAS7)) -
CAT (TREAS.UCAT.RB RBCAT)
/* DEFINE THE HISAM PRIMARY INDEX FOR EMPLOYEE HISTORY */
DEFINE CLUSTER -
(NAME(RB101-2) -
INDEXED KEYS (10 10) -
RECSZ (22 22) -
CISZ (2048) -
SHR (1 3) -
BLOCKS (58000 620) -
FREESPACE (20 10) -
VOLUMES (TREAS7)) -
DATA (NAME(RB101-2.DATA)) -
INDEX (NAME(RB101-2.INDEX)) -
CAT (TREAS.UCAT.RB RBCAT)
/*
* PREREORG INITIAL LOAD OF CURRENT DATA BASE
// ASSGN SYSLST,00E
// OPTION PARTDUMP,NOSYSDMP,LOG
// ASSGN SYS045,DISK,VOL=TREAS5,SHR
// ASSGN SYS012,DISK,VOL=TREAS7,SHR
// DLBL CONTROL,'RB101-C1.CNTL',0,VSAM,RECORDS=10,RECSIZE=80, X
DISP=(NEW,KEEP),CAT=RBCAT
// EXTENT SYS012,TREAS7
// EXEC DLZRRC00,SIZE=712K
ULU,DLZURPR0
DBIL=RCURDBD
OPTIONS=(NOPUNCH,STAT,SUMM)
/*
* JOB RBCURHDL RELOAD CURRENT DATA BASE
// ASSGN SYS045,DISK,VOL=TREAS5,SHR
* // PAUSE ASSGN SYS011 TO AVAILABLE TAPE DRIVE
// ASSGN SYS011,670
* // ASSGN SYS011,681,ALT
* // ASSGN SYS011,690,ALT
// TLBL HDUNLD1,'RB101-1.FILE'
// DLBL CONTROL,'RB101-C1.CNTL',,VSAM,DISP=(OLD,KEEP),CAT=RBCAT
// DLBL RCURNT,'RB101-1.DATA',,VSAM,CAT=RBCAT
// DLBL RINXCUR,'RB101-2',,VSAM,CAT=RBCAT
// EXEC DLZRRC00,SIZE=712K
ULU,DLZURGL0,RCURDBD
/*
/&
* $$ EOJ
Return to the Sample Job Stream List
//RBCURHDL JOB (RBCURHDL),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//* LOAD PREVIOUS CURRENT DATA BASE
//*
//* STEP0010 PGM=IDCAMS
//*
//STEP0010 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//* VS I RBCAT A 'RB101-1.DATA' DELETE
//#DELETE DD DUMMY,DSN=MVSDB.RB101-1.DATA
//* VS I RBCAT A 'RB101-2' DELETE
//#DELETE DD DUMMY,DSN=MVSDB.RB101-2
//* VS VS ES O RBCAT A 'RB101-1.DATA' DEFCL
//#DEFCL DD DUMMY,DSN=MVSDB.RB101-1.DATA
//* VS VS KS O RBCAT A 'RB101-2' DEFCL
//#DEFCL DD DUMMY,DSN=MVSDB.RB101-2
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
DEL (MVSDB.RB101-1.DATA) CL PURGE
IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
DEL (MVSDB.RB101-2) CL PURGE
IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
/* DEFINE THE HIDAM DATA CLUSTER FOR CURRENT DATA
DEFINE CLUSTER -
(NAME(MVSDB.RB101-1.DATA) -
NONINDEXED -
RECSZ (2038,2038) -
CISZ (2048) -
SHR (1 3) -
TRACKS(6000 7 ) -
VOLUMES(TREAS7))
/* DEFINE THE HISAM PRIMARY INDEX FOR EMPLOYEE HISTORY */
DEFINE CLUSTER -
(NAME(MVSDB.RB101-2) -
INDEXED KEYS (10 10) -
RECSZ (22 22) -
CISZ (2048) -
SHR (1 3) -
TRACKS (580 7 ) -
FREESPACE (20 10) -
VOLUMES (TREAS7))
/*
//*
//* PREREORG INITIAL LOAD OF CURRENT DATA BASE
//*
//* STEP0020 PGM=DFSURPR0 DLZRRC00
//*
//STEP0020 EXEC PGM=DFSRRC00,PARM=(ULU,DFSURPR0)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
// INCLUDE MEMBER=IMSFILES
//* SD VS O RBCAT CONTROL 'RB101-C1.CNTL'
//DFSURCDS DD DSN=MVSDB.RB101-C1.CNTL,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1,1),RLSE),
// UNIT=SYSDA
//* CD I SYSIPT 00C
//SYSIN DD *
DBIL=RCURDBD
OPTIONS=(NOPUNCH,STAT,SUMM)
/*
//*
//* JOB RBCURHDL RELOAD CURRENT DATA BASE
//* // PAUSE ASSGN SYS011 TO AVAILABLE TAPE DRIVE
//* // ASSGN SYS011,681,ALT
//* // ASSGN SYS011,690,ALT
//*
//* STEP0030 PGM=DFSURGL0 DLZRRC00
//*
//STEP0030 EXEC PGM=DFSRRC00,PARM=(ULU,DFSURGL0,RCURDBD)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
// INCLUDE MEMBER=IMSFILES
//* MT I HDUNLD1 'RB101-1.FILE'
//DFSUINPT DD DSN=MVSDB.RB101-1.FILE,
// DISP=SHR
//* SD VS I RBCAT CONTROL 'RB101-C1.CNTL'
//DFSURCDS DD DSN=MVSDB.RB101-C1.CNTL,
// DISP=OLD
//* VS VS DB U RBCAT 'RB101-1.DATA' RCURDBD
//RCURNT DD DSN=MVSDB.RB101-1.DATA,
// DISP=SHR
//* VS VS DB U RBCAT 'RB101-2' RX5DBD
//RINXCUR DD DSN=MVSDB.RB101-2,
// DISP=SHR
//* SD O SYS013 UA DFSURWF1 /0/0 OPT=Y WORKFIL
//*
//SCRATCH EXEC PGM=IEFBR14
//*
//DEL001 DD DSN=MVSDB.RB101-C1.CNTL,DISP=(MOD,DELETE)
//
Return to the Sample Job Stream List