Clean up procedure for lost archive tapes.
Article ID: 24709
Updated On:
Products
Issue/Introduction
This document will outline the steps needed to clean up the AIF index when an archive tape has been lost.
Environment
Resolution
If an archive tape has been lost or overwritten and you are absolutely sure that you do not have a duplex or backup copy of the tape, you can run the Bundl utility CC50J080 to delete the entries in the AIF that were stored on that tape.
First, set up the utility to list out all the entries in the AIF that reside on the archive tape using the LIST function. In the JCL found in the CC50J080 member in the PPOPTION library, make the following changes:
In the "INDEX FILE TYPE" section, uncomment the INDEX=A** statement. Make sure all the other INDEX= choices are still commented out.
*-------------------------------------------------------------** INDEX FILE TYPE (USE ONLY 1) **-------------------------------------------------------------* INDEX=AA** * AIF ONLY*INDEX=**S* * SIF ONLY*INDEX=***V * VIF ONLY*INDEX=AAS* * AIF AND SIF*INDEX=AA*V * AIF AND VIF*INDEX=**SV * SIF AND VIF*INDEX=AASV * PROCESS ALL THREE INDEX FILES*-------------------------------------------------------------*
In the "PROCESS MODE" section, uncomment the FUNCT=LIST statement. Make sure all other FUNCT= choices are still commented out.
*-------------------------------------------------------------** PROCESS MODE (USE ONLY 1) **-------------------------------------------------------------* FUNCT=LIST * LIST SELECTED INDEX RECORDS*FUNCT=DELETE * DELETE SELECTED INDEX RECORDS*FUNCT=REQUEUE * REDISTRIBUTE SELECTED SIF RECORDS*FUNCT=REPRINT * REPRINT SELECTED AIF RECORDS*FUNCT=SETVRET=01R * CHANGE VIEW RETENTION (AND LIST)*FUNCT=SETARET=XXX * CHANGE ARCHIVE RETENTION (AND LIST)*-------------------------------------------------------------*
In the "REPORT DATA STORAGE CRITERIA" section, uncomment the DSNME= statement and set it equal to the fully qualified name of the lost archive tape. Make sure all other selection criteria are commented out.
*-------------------------------------------------------------** REPORT DATA STORAGE CRITERIA **-------------------------------------------------------------**LDATE=1993/11/30 * LAST VIEW ACCESS DATE N (VIF)*ENDLD=1995/10/30 * END LDATE RANGE N (VIF)*PAGNO=1 * PAGE FILE NUMBER: 0-9 N (ALL)*BFLAG=D * CA-BUNDL STATUS: D OR X N (SIF)*BLOCN=V * LOCATION: P OR V N (SIF/VIF)*VRETN=??D * VIEW RETN (3) Y (SIF/VIF)*ARETN=01? * ARCHIVE RETN (3) Y (SIF/AIF)* * ARCHIVE DSN (44) Y (AIF)* <----.----+----.----+----.----+----.----+----> DSNME=BNDL.ARCHIVE.YEARLY.G0006V00* <----.----+----.----+----.----+----.----+---->*ADATE=1999/04/15 * ARCH STAMP DATE (10) N (AIF)*ENDAD=1999/04/15 * END ADATE RANGE (10) N (AIF)*ATIME=0925 * ARCH STAMP TIME (4) N (AIF)*PROFL=LONSC01 * PROFILE ID (8) Y (VIF)*-------------------------------------------------------------*
Now, run the utility and it will list all the entries in the AIF that reside on the missing tape. After getting the list of all the reports selected by the utility and verifying the listed reports are the ones that you wish to delete, uncomment the FUNCT=DELETE statement. Make sure the FUNCT=LIST statement is commented out.
*-------------------------------------------------------------** PROCESS MODE (USE ONLY 1) **-------------------------------------------------------------**FUNCT=LIST * LIST SELECTED INDEX RECORDS FUNCT=DELETE * DELETE SELECTED INDEX RECORDS*FUNCT=REQUEUE * REDISTRIBUTE SELECTED SIF RECORDS*FUNCT=REPRINT * REPRINT SELECTED AIF RECORDS*FUNCT=SETVRET=01R * CHANGE VIEW RETENTION (AND LIST)*FUNCT=SETARET=XXX * CHANGE ARCHIVE RETENTION (AND LIST)*-------------------------------------------------------------*
Run the CC50J080 utility and delete the entries.
Feedback
