* $$ JOB JNM=RBBIOHDL,CLASS=B,DISP=H
* $$ LST CLASS=R,DEST=*
// JOB RBBIOHDL DELETE/DEFINE
// ASSGN SYSLST,00E
// EXEC IDCAMS,SIZE=AUTO
DEL (RB100-1.DATA) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
DEL (RB100-2) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
DEL (RB100-3) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
DEL (RB100-4) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
DEL (RBWORK) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
DEL (RB100-C1.CNTL) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
/* DEFINE THE HIDAM DATA CLUSTER FOR RETIREMENT MASTER */
DEFINE CLUSTER -
(NAME(RB100-1.DATA) -
NONINDEXED -
RECSZ (2038,2038) -
CISZ (2048) -
SHR (2) -
REC(250000 2500) -
VOLUMES(TREAS5)) -
CAT (TREAS.UCAT.RB RBCAT)
/* DEFINE THE HISAM PRIMARY INDEX FOR RETIREMENT MASTER */
/* THE KEY TO THIS INDEX IS SYS-CODE PLUS SSN */
DEFINE CLUSTER -
(NAME(RB100-2) -
INDEXED KEYS (6 10) -
RECSZ (18 18) -
CISZ (2048) -
SHR (2) -
REC(1500000 1500) -
FREESPACE (20 10) -
VOLUMES (TREAS6)) -
DATA (NAME(RB100-2.DATA)) -
INDEX (NAME(RB100-2.INDEX)) -
CAT (TREAS.UCAT.RB RBCAT)
/* DEFINE THE HISAM SECONDARY INDEX FOR RETIREMENT MASTER */
/* THE KEY TO THIS INDEX IS ANO */
DEFINE CLUSTER -
(NAME(RB100-3) -
INDEXED KEYS (9 10) -
RECSZ (20 20) -
CISZ (2048) -
SHR (2) -
REC(2000000 2000) -
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 (2) -
REC(2000000 2000) -
FREESPACE (20 10) -
VOLUMES (TREAS6)) -
DATA (NAME(RB100-4.DATA)) -
INDEX (NAME(RB100-4.INDEX)) -
CAT (TREAS.UCAT.RB RBCAT)
/*
* PREREORG INITIAL LOAD OF MASTER DATA BASE
// ASSGN SYS012,DISK,VOL=TREAS5,SHR
// DLBL CONTROL,'RB100-C1.CNTL',0,VSAM,RECORDS=10,RECSIZE=80, X
DISP=(NEW,KEEP),CAT=RBCAT
// EXTENT SYS012,TREAS5
// EXEC DLZRRC00,SIZE=8000K
ULU,DLZURPR0
DBIL=RMASDBD
OPTIONS=(NOPUNCH,STAT,SUMM)
/*
* JOB RBBIOHDL RELOAD BIOGRAPH DATA BASE
* // ASSGN SYS011,670
// PAUSE MOUNT RB100-1.DATA & ASSGN SYS011
// TLBL HDUNLD1,'RB100-1.DATA'
// ASSGN SYS013,DISK,VOL=TRESB1,SHR
// DLBL WORKFIL,'RBWORK',0,VSAM,RECORDS=(2500000,40000), X
RECSIZE=74,DISP=(NEW,KEEP),CAT=BKCAT
// EXTENT SYS013,TRESB1
// DLBL CONTROL,'RB100-C1.CNTL',,VSAM,CAT=RBCAT
// 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=900K
ULU,DLZURGL0,RMASDBD
/*
/&
* $$ EOJ
Return to the Sample Job Stream List
//RBBIOHDL JOB (RBBIOHDL),' ',
// 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-1.DATA' DELETE
//#DELETE DD DUMMY,DSN=MVSDB.RB100-1.DATA
//* VS I RBCAT A 'RB100-2' DELETE
//#DELETE DD DUMMY,DSN=MVSDB.RB100-2
//* 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 ES O RBCAT A 'RB100-1.DATA' DEFCL
//#DEFCL DD DUMMY,DSN=MVSDB.RB100-1.DATA
//* VS VS KS O RBCAT A 'RB100-2' DEFCL
//#DEFCL DD DUMMY,DSN=MVSDB.RB100-2
//* 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=*
//* CD I
//SYSIN DD *
DEL (MVSDB.RB100-1.DATA) CL PURGE
IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
DEL (MVSDB.RB100-2) CL PURGE
IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
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
/* DEFINE THE HIDAM DATA CLUSTER FOR RETIREMENT MASTER */
DEFINE CLUSTER -
(NAME(MVSDB.RB100-1.DATA) -
NONINDEXED -
RECSZ (2038,2038) -
CISZ (2048) -
SHR (2) -
REC(250000 2500) -
VOLUMES(TREAS5))
/* DEFINE THE HISAM PRIMARY INDEX FOR RETIREMENT MASTER */
/* THE KEY TO THIS INDEX IS SYS-CODE PLUS SSN */
DEFINE CLUSTER -
(NAME(MVSDB.RB100-2) -
INDEXED KEYS (6 10) -
RECSZ (18 18) -
CISZ (2048) -
SHR (2) -
REC(1500000 1500) -
FREESPACE (20 10) -
VOLUMES (TREAS6))
/* DEFINE THE HISAM SECONDARY INDEX FOR RETIREMENT MASTER */
/* THE KEY TO THIS INDEX IS ANO */
DEFINE CLUSTER -
(NAME(MVSDB.RB100-3) -
INDEXED KEYS (9 10) -
RECSZ (20 20) -
CISZ (2048) -
SHR (2) -
REC(2000000 2000) -
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 10) -
RECSZ (40 40) -
CISZ (2048) -
SHR (2) -
REC(2000000 2000) -
FREESPACE (20 10) -
VOLUMES (TREAS6))
/*
//*
//* PREREORG INITIAL LOAD OF MASTER 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 'RB100-C1.CNTL'
//DFSURCDS DD DSN=MVSDB.RB100-C1.CNTL,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1,1),RLSE),
// UNIT=SYSDA
//* CD I SYSIPT 00C
//SYSIN DD *
DBIL=RMASDBD
OPTIONS=(NOPUNCH,STAT,SUMM)
/*
//*
//* JOB RBBIOHDL RELOAD BIOGRAPH DATA BASE
//* // ASSGN SYS011,670
//*
//* STEP0030 PGM=DFSURGL0 DLZRRC00
//*
//STEP0030 EXEC PGM=DFSRRC00,PARM=(ULU,DFSURGL0,RMASDBD)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
// INCLUDE MEMBER=IMSFILES
//* MT I HDUNLD1 'RB100-1.DATA'
//DFSUINPT DD DSN=MVSTAPE.RB100-1.DATA,
// DISP=SHR
//* SD VS I RBCAT CONTROL 'RB100-C1.CNTL'
//DFSURCDS DD DSN=MVSDB.RB100-C1.CNTL,
// DISP=SHR
//* 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 VS O RBCAT WORKFIL 'RBWORK'
//DFSURWF1 DD DSN=MVS.RBWORK,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(3700,925),RLSE),
// UNIT=SYSDA
//
Return to the Sample Job Stream List