CA View - Is there a Program, Similar to SARTSLST, That Lists just Tape Numbers?

Products

• OM View

Issue/Introduction

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.

Environment

Release : 14.0

Component : CA View

Resolution

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 

/* 

//