Utilities › RMOGRW - General Report Writer › TITLE Control Statement › Example 3

Example 3

The following example, which is located in RMOGRW03 in CAI.CVDEJCL, lists the address lines and destination for each distribution identifier:

//EXAMPLE3 JOB  ACCOUNT,PROGRAMMER
//RMOGRW3  EXEC PGM=RMOGRW
//STEPLIB  DD   DSN=CAI.CVDELOAD,DISP=SHR
//SYSPRINT DD   SYSOUT=*
//PRTFILE  DD   SYSOUT=*
//SYSIN    DD   *

/CONTROL  DATABASE=DELIVER.SYSTEM1
/TITLE  'DISTRIBUTION SPECIFICATIONS'
/PRINT DISTID 'DISTRIBUTION, IDENTIFIER' SKIP(2)
/PRINT DDEST 'DISTRIBUTION,DESTINATION'
/DEFINE (DCOL,I) BIN
/SET DCOL = COL+2
/DO I = 1 TO NA BY 1
/   PRINT A 'DISTRIBUTION,   LINES' COL(DCOL)
/   NEXT A
/END