CA Deliver RMOGRW Program Similar to RMORPT 01

Document ID : KB000047353
Last Modified Date : 14/02/2018
Show Technical Document Details

Issue:

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

 

Envrionment:

Deliver 12.0, 12.1, 12.2

 

Resolution:

Client was given the following RMOGRW JCL and program:

 

//XXXXXXXX JOB ... 

//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 

/*

//