Culprit archive summary report - Dispatch ARCHIVE VOLSERS AND # OF REPORTS ON EACH

Products

• Dispatch Output Mgmt

Issue/Introduction

Is there a report available in Dispatch, other than the DSCULP21 report, that will just show us a list of the Dispatch recognized archive VOLSERS and the total number of reports archived to each tape?

Environment

Dispatch, z/OS, Culprit, summary, archive, volser, tapes, number, of, reports, each

Cause

Need for custom Culprit report

Resolution

The following CULPRIT statements will create a report that ONLY lists the archive VOLSERS and the number of reports on each tape.       

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. Submit the DSEXCULP job to produce the report. 
                                                                        
                                                                        
* REMEMBER, the Culprit control statements must start in column 2 *             
                                                                        
***************** Top of Data **************                            
 INPUT 6000 DB(D) SS=SSAR01,CAISCHEM,1                                  
 PATH01 AR-REPORT                                                       
 07SORT AR-REPORT-VOLSER,+                                              
 07OUT T                                                                
 070 FLAG       0                                                       
 070 AVERAGE    0                                                       
 070 COUNT                                                              
 070 TOTAL      0                                                       
 073 ARCHIVE VOLSERS AND # OF REPORTS ON EACH                           
 07410001 '   '                                                         
 07410020 'VOLSER'                                                      
 07410057 '# OF REPORTS'                                                
 07510010 TOTAL                                                         
 07610020 AR-REPORT-VOLSER                                              
 07610052 TOTAL SZ=10                                                   
 076200310 'TOTAL REPORTS       ='                                      
 07620052  TOTAL SZ=10                                                  
 076300310 'AVG RPTS PER TAPE - '                                       
 07630052  AVERAGE SZ=11                                                
 077        COUNT + 1    TOTAL                                          
 077        HEAD                                                        
 077           MOVE  1  TO  FLAG                                        
 078        IF LEVL EQ 2 100                                            
 078        COUNT + 1  COUNT                                            
 078        TAKE 1                                                      
 078100     TOTAL / COUNT AVERAGE                                       
 078        TAKE (2,3)                                                  
********** Bottom of Data ****************                              
                                                                        
Don't forget to remove the TOP/BOTTOM OF DATA comments above, and make sure that the control statements start in column 2.