This document will present a sample RMOGRW program to print out the JOBNAMES definition
CA Deliver is designed to segment JDR (JOB) records when many reports are defined to a single job record. When using RMOGRW to print only JDR (JOB) records, duplicate job entries may be listed as a result of segmented JDR records. The following technique should be used to list JDR (Job) records when using the RMOGRW utility:
/CONTROL DATABASE=DELIVER.SYSTEM1 SEQ=JOB <==== MODIFY
/TITLE 'JOB RECORDS LISTING'
/DEFINE JOBSAVE CHAR(8)
/IF JOB NE JOBSAVE
/ PRINT JOB 'JOBNAME' COL(3)
/ SET JOBSAVE = JOB