The client would like to have a list of their CA View tapes in use, similar to part of a report from SARTSLST, that would not include a list of reports.
Release : 14.0
Component : CA View
Below is a SARGRW program that will list a database's tape particulars (but not list reports thereof):
//XXXXXXXX JOB ...
//SARGRW01 EXEC PGM=SARGRW
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== Modify, if used
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG)
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PRTFILE DD SYSOUT=*
//* //SYSIN DD *
/CONTROL DATABASE=view_hlq <=== Modify DB name
/SORT TAPESEQ
/TITLE 'LISTING OF TAPES BY TAPE SEQ NUMBER'
/DEFINE CNT BIN
/SET CNT = CNT+1
/PRINT TAPESEQ 'TPSEQ'
/PRINT TAPEDSN 'TAPE DSN'
/PRINT TAPETYPE 'TYPE'
/PRINT TAPEVOL 'VOLSER'
/PRINT TAPECDAT 'CR DATE'
/ON ENDDATA
/ PRINT 'TOTAL TAPES='||CNT COL(1)
/END
/*
//