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?
Dispatch, z/OS, Culprit, summary, archive, volser, tapes, number, of, reports, each
Need for custom Culprit report
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.