View - There are missing reports in a View database

Products

• View

Issue/Introduction

We are having an issue with missing reports in one of our View databases.

Environment

Release : 14.0

Component : View

Resolution

As the client had always had set SARINIT EXPDT=99000, all View tapes were to be under catalog control. 

However, there was something in the client's environment that was uncataloging good View tapes. 

For the affected tapes, the client was instructed to do the following:

 . Run SARPAC REPORT, to identify the *NOCAT tapes:

//XXXXXXXX JOB ...                                                   
//SARPAC   EXEC PGM=SARPAC,PARM='VIEW_HLQ,REPORT' <=== MODIFY DB NAME
//STEPLIB  DD  DISP=SHR,DSN=VIEW.CVDELOAD     <=== MODIFY, IF USED   
//SYSPRINT DD  SYSOUT=*                                              
//SYSUDUMP DD  SYSOUT=*                                              
//SYSIN    DD  DUMMY                                                 
//                                                                   

 . For each tape with a *NOCAT status:

 . . Run SARTSLST, to generate /DELETE transactions:

//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.CTLCARDS,                             
//            DISP=(,CATLG,DELETE),                                   
//            SPACE=(TRK,(NN,NN),RLSE),                               
//            UNIT=XXXX,VOL=SER=YYYYYY,                               
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)                    
//                                                                    

 . . For each CTLCARDS file generated, run SARBCH:

//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.CTLCARDS
//  

As tapes are identified and their reports have been deleted, the tape in question will be expired at the next View backup.