Have a requirement to list FCB,FORMS and WRITER information from the VRDMU130 Report Recipient Definition Screen.
The following Culprit statements will create a Report called "LIST ADDITIONAL VRDMU130 FIELDS"
INPUT 6000 DB(D) SS=SSRD01,CAISCHEM,1
PARAM=NOLIST
PATH01 RD-BASE RD-RCPRPT RD-RECIP RD-SYSOUT RD-PAGE(02)
13OUT D
13SORT RD-BASE-REPORT-NAME RD-BASE-JOBNAME RD-RCPRPT-RECIP-ID
133 CA-DISPATCH LIST ADDITIONAL VRDMU130 FIELDS
1341* 1 ' '
1343* 1 ' '
1342* 1 'REPORT'
1342* 2 'JOB'
1342* 3 'RECIPIENT'
1342* 4 'MAILDROP'
1342* 5 'FORM'
1342* 6 'FCB'
1342* 7 'WRITER'
1351* 1 RD-BASE-REPORT-NAME
1351* 2 RD-BASE-JOBNAME
1351* 3 RD-RCPRPT-RECIP-ID
1351* 4 RD-RECIP-MAILDROP
1351* 5 RD-SYSOUT-FORMS
1351* 6 RD-SYSOUT-FCB
1351* 7 RD-SYSOUT-WRITER
137800 TAKE
Instructions for creating the new Culprit report:
* Copy the Culprit statements above into a new CADSOPTN library member and then modify the MEMBER= symbolic in the DSEXCULP JCL to point to this new member name.
** IMPORTANT **
- The Culprit control statements MUST start in column 2 in the new CADSOPTN library member you will be creating.