Deliver RMOGRW Program Similar to RMORPT 01

Products

• Deliver

Issue/Introduction

Need to have a Deliver RMOGRW program similar in function to RMORPT 01, with the additional requirement of being able to select Jobs of certain prefixes. 

 

Environment

Release: 12.0, 12.1, 12.2

Resolution

RMOGRW JCL and program:

//  JOB statement 
//RMOGRW EXEC PGM=RMOGRW 
//STEPLIB DD DISP=SHR,DSN=DLVR.CVDELOAD <=== Modify, if used 
//SYSPRINT DD SYSOUT=* 
//SYSOUT DD SYSOUT=* 
//PRTFILE DD SYSOUT=* 
//SYSIN DD * 
/CONTROL SEQ=JOB DATABASE=dlvr_hlq <=== Modify DB name 
/DEFINE J BIN 
/DEFINE JOBHOLD CHAR(8) 
/IF SUBSTR(RJOB,1,4) = 'XXXX' <=== Modify Job prefix 
/ DO J = 1 TO NRID BY 1 
/ IF JOBHOLD = RJOB 
/  PRINT RJOB 'Jobname' COL(1) 
/ ELSE 
/  PRINT RJOB 'Jobname' COL(1) SKIP(2) 
/ END 
/ PRINT RSTEP 'Stepname' COL(10) 
/ PRINT RPROCSTEP 'Procstep' COL(19) 
/ PRINT RDD 'DDName' COL(28) 
/ PRINT RID 'Report ID' COL(39) 
/ PRINT RTYPE 'Type' COL(73) 
/ SET JOBHOLD = RJOB 
/ NEXT RID 
/ END 
/END 
/*
//