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