Custom Culprit report to list recipients WRITER and DEST fields from VRDMU130

Products

• Dispatch Output Mgmt

Issue/Introduction

We are trying to identify which recipients have a particular external WRITER coded on their CA Dispatch VRDMU130 screen. And if they have this particular writer, identify what DESTINATION CA Dispatch assigns to the output dataset.

We were hoping to obtain this information using the CA Dispatch provided CULPRIT reporting utility, and have the output report include the following information:  

Report name
Job name
Recipient
Writer
Dest

Environment

Release : 11.7

Component : CA Dispatch

Resolution

The following CULPRIT statements will create a report called "LIST REPORT RECIPS THAT HAVE WRITERS".  

 By following the instructions in the COMMENTS section of the code and removing the '$$' from the beginning of the 'SEL' (select) statement for WRITER EQ 'ABCDE', you can limit the output to only a specified/selective WRITER.

If the 'SEL' statement is commented out, the listing will show you ALL of the recipients defined to the database and what they have coded in the external WRITER field on their CA Dispatch VRDMU130 screen. 

Instructions for creating the new Culprit report: 

* Copy the statements below 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.

- Don't forget to remove the TOP & BOTTOM OF DATA comments before saving the member and executing the report.

- CREATE NEW CULPRIT MEMBER containing the following control statements in 'your.dispatch.CADSOPTN' library. 

   Example:

EDIT   your.dispatch.CADSOPTN(CLPWTR)
***************************** Top of Data ************************
 INPUT 6000 DB(D) SS=SSRD01,CAISCHEM,1                            
 PARAM=NOLIST                                                     
 PATH01 RD-BASE RD-RCPRPT RD-RECIP RD-SYSOUT
$$  ********************* COMMENTS *******************************
$$  THE '$$' SIGNS BELOW ARE USED TO DESIGNATE A COMMENT STATEMENT 
$$  TO INVOKE THE 'SEL' STATEMENT BELOW SIMPLY REMOVE THE '$$'
$$ *
$$  --> !! A VALID 'SEL' STATEMENT SHOULD START IN COLUMN 2 !!
$$ *
$$  --> SPECIFY SELECTIVE WRITER BETWEEN ' ' MARKS BELOW 
$$ *
$$ SEL RD-SYSOUT WHEN RD-SYSOUT-WRITER EQ 'ABCDE'
$$ *
$$  **************************************************************                      
 63OUT D                                                          
 63SORT RD-BASE-REPORT-NAME   RD-BASE-JOBNAME   RD-RCPRPT-RECIP-ID
 633 LIST REPORT RECIPS THAT HAVE WRITERS                         
 6341*  1 '   '                                                   
 6343*  1 '   '                                                   
 6342*  1 'REPORT'                                                
 6342*  2 'JOB'                                                   
 6342*  3 'RECIPIENT'                                             
 6342*  4 'WRITER'                                                
 6342*  5 'DEST1'                                                 
 6351*  1 RD-BASE-REPORT-NAME                                     
 6351*  2 RD-BASE-JOBNAME                                         
 6351*  3 RD-RCPRPT-RECIP-ID                                      
 6351*  4 RD-SYSOUT-WRITER                                        
 6351*  5 RD-SYSOUT-DEST1                                         
 637    IF RD-SYSOUT-WRITER EQ '        ' DROP                    
 637100 TAKE                                                      
**************************** Bottom of Data **********************

- Execute the DSEXCULP job with the MEMBER= symbolic set up to point to the above new CADSOPTN library member.