We are having an issue with missing reports in one of our View databases.
Release : 14.0
Component : View
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.