We have about 3000 entries from the 1990s and early 2000s that it has been decided can be deleted now.
There are the entries in the repository and the backup tapes behind them to deal with.
What is the cleanest, most expedient way of doing this?
Release : 14.0
Component : View
A View location of PTAP means that a report is only on tape.
A location of PERM means that a report is on both disk and tape.
If there are reports that are old and are in PERM status, it is possible to delete the report occurrence from the disk layer only, retaining the tape version.
That type of deletion is done using the View online "DD" command (Delete Disk).
To identify what is on the tapes in question, run the following SARTSLST JCL against each tape:
//XXXXXXXX JOB ...
//SARTSLST EXEC PGM=SARTSLST,PARM='VIEW_HLQ,NNNNN' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//CTLCARDS DD DSN=XXXXXX.XXXXXX.CTLCRDSx,
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,(NN,NN),RLSE),
// UNIT=XXXX,VOL=SER=YYYYYY,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//
To expire the tape occurrences, run the CTLCRDSx files in the following SARBCH JCL:
//XXXXXXXX JOB ...
//SARBCH EXEC PGM=SARBCH,PARM='VIEW_HLQ' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//REPORT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=XXXXXX.XXXXXX.CTLCRDSx
//
At the next View backup following the deletes, the tapes will be evaluated, and if there are no active reports on tapes, the tape will be expired.