Culprit report to list VRDMU130 screen info for specific REPORT RECIPIENT and/or specific DESTINATION

Products

• Dispatch Output Mgmt

Issue/Introduction

Is there a custom culprit report that will show us the Dispatch VRDMU130 screen information for a specific REPORT RECIPIENT?

Is there a custom culprit report that will show us the Dispatch VRDMU130 screen information for a specific DESTINATION?

Environment

z/os, Dispatch, culprit, custom, report, vrdmu130, report, recipient, destination

Cause

Special needs requirement.

Resolution

Depending on which $$ select statement is uncommented, the following CULPRIT statements will create a report that:

- Lists reports defined with a REPORT RECIPIENT of :  RECIPNAME
or
- Lists reports defined with a DESTINATION of:  RECIPDEST        

INSTRUCTIONS:

- Code the following Culprit statements into a new CADSOPTN library member. Then modify the MEMBER= symbolic in the DSEXCULP jobs JCL to point to this new member name.

- Uncomment the appropriate "SEL" statement by removing the two dollar signs ( $$ ) from the beginning of the SEL statement, so that the 'S' in SEL starts in column 2, along with the rest of the Culprit statements.

- Submit the DSEXCULP job to produce the report. 
                                                                        
                                                                        
* REMEMBER, the Culprit control statements must start in column 2. And don't forget to remove the TOP OF DATA and BOTTOM OF DATA lines before executing.             
                                                                                                   

your.dispatch.CADSOPTN(NEWCULP)
***************************** Top of Data ***********************
 INPUT 6000 DB(D) SS=SSRD01,CAISCHEM,1                           
 PARAM=LIST                                                      
 PATH01 RD-RECIP(IX-RD-RECIP) RD-RCPRPT(02) RD-SYSOUT            
$$ SEL RD-RECIP WHEN RD-RECIP-RECIP-ID EQ 'RECIPNAME'                
$$ SEL RD-SYSOUT WHEN RD-SYSOUT-DEST1 EQ 'RECIPDEST'               
 23SORT RD-RECIP-RECIP-ID,1   RD-RCPRPT-REPORT-NAME              
 233 SELECTIVE RECIPIENT and/or DESTINATION LISTING 
 2341*  1 '   '                                                  
 2343*  1 '   '                                                  
 2342*  1 'RECIPIENT'                                            
 2342*  2 'REPORT'                                               
 2342*  3 'JOB'
 2342*  3 'JOB'                              
 2342*  4 'CLASS'                            
 2342*  5 'FORMS'                            
 2342*  6 'DEST.'                            
 2342*  7 'COPIES'                           
 2342*  8 'MAILDROP'                         
 2352*  1 RD-RECIP-RECIP-ID                  
 2352*  2 RD-RCPRPT-REPORT-NAME              
 2352*  3 RD-RCPRPT-JOBNAME                  
 2352*  4 RD-SYSOUT-CLASS-SPECIFIC           
 2352*  5 RD-SYSOUT-FORMS                    
 2352*  6 RD-SYSOUT-DEST1                    
 2352*  7 RD-SYSOUT-COPIES                   
 2352*  8 RD-RECIP-MAILDROP                  
 237    IF PATH-ID NE '02' 100               
 237    DROP                                 
 237100 TAKE                                 
**************************** Bottom of Data *******************

Additional Information

Created from case #36010244.