RMOGRW does not give the DID ENTRY NUMBER

Document ID : KB000109038
Last Modified Date : 21/08/2018
Show Technical Document Details
Question:
Is there a way to determine the DID entry number for a DID under a given report? RMOGRW does not provide this.
Answer:
This job will give you the DID entry number under each report:

000100 //JOBCARD 
000110 //********************************************************* 
000120 //$$$$$$@ EXEC PGM=RMOGRW 
000130 //STEPLIB DD DISP=SHR,DSN=your.deliver.loadlib
000150 //SYSPRINT DD SYSOUT=* 
000200 //SYSOUT DD SYSOUT=* 
000210 //PRTFILE DD SYSOUT=* 
000300 //OUTFILE DD SYSOUT=*,DCB=(LRECL=133) 
000400 //* 
000500 //SYSIN DD * 
001000 /TITLE 'IDENTIFYING DISTID POSITIONS FOR REPORTS' 
001200 /CONTROL DB=your.deliver.HLQ SEQ=RID 
001300 /DEFINE I BIN(4) 
003700 /DO I = 1 TO NDID BY 1 
003900 / PRINT RID 'REPORT ID' COL(1) 
004000 / PRINT DISTID 'DIST ID' COL(34) 
004100 / PRINT EDIT(I,'9999') 'ENTRY NO' COL(66) 
004300 / NEXT DISTID 
004400 /END 
004500 /*