View - Want to delete a large number of old entries

Products

• View

Issue/Introduction

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?   

Environment

Release : 14.0

Component : View

Resolution

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.