This document will present a sample RMOGRW program to print out the JOBNAMES definition
Release: All
Component: DELIVER
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
/END