* $$ JOB JNM=RBHISHDU,CLASS=B,DISP=D * $$ LST CLASS=R,DEST=* // JOB RBHISHDU UNLOAD HISTORY DATA BASE // ASSGN SYSLST,00E // ASSGN SYS010,IGN // PAUSE MOUNT SCRATCH & ASSGN SYS011 (RB102-1.FILE) * // ASSGN SYS011,671 // TLBL HDUNLD1,'RB102-1.FILE' // ASSGN SYS012,IGN * CHKPT=10000 // DLBL RHIST,'RB102-1.DATA',,VSAM,CAT=RBCAT // DLBL RINXHS,'RB102-2',,VSAM,CAT=RBCAT // EXEC DLZRRC00,SIZE=712K ULU,DLZURGU0,RHISDBD CHKPT=NO /* /& * $$ EOJ
Return to the Sample Job Stream List
//RBHISHDU JOB (RBHISHDU),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* // ASSGN SYS011,671 //* CHKPT=10000 //* //* STEP0010 PGM=DFSURGU0 DLZRRC00 //* //STEP0010 EXEC PGM=DFSRRC00,PARM=(ULU,DFSURGU0,RHISDBD) //* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI // INCLUDE MEMBER=IMSFILES //* VS VS DB I RBCAT 'RB102-1.DATA' RHISDBD //RHIST DD DSN=MVS.RB102-1.DATA, // DISP=SHR //* VS VS DB I RBCAT 'RB102-2' RX9DBD //RINXHS DD DSN=MVS.RB102-2, // DISP=SHR //* MT O HDUNLD1 'RB102-1.FILE' //DFSURGU1 DD DSN=MVSDB.RB102-1.FILE, // DISP=(NEW,CATLG,DELETE), // UNIT=TAPE //* MT O DFSURGU2 /0/0 OPT=Y HDUNLD2 //
Return to the Sample Job Stream List