Process to recover the expired reports from View.
An expired report from a View database can be recovered in 2 ways explained below:
Case 1 ( recovering the report when it is still on a View tape)
Use the SARTDR/TADD function to re-add specific reports, generations, or resource groups from an archival tape that has expired from a View database. An entire archive tape can also be re-added. The function will add the report(s) back to the View master index.
After the function has completed, the report should be selected with "L" (Load) to cause it to be put back on disk.
Note: At the next View standard backup, the report will expire again unless there has been an adjustment to either the View retention parameters (NGEND, NGENT) or to the report's corresponding entry in the ERO table.
Below is sample JCL for SARTDR:
//SARTDR JOB ...
//STEP1 EXEC PGM=SARTDR,PARM='VIEW.HLQ'
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD
//SYSPRINT DD SYSOUT=*
//TAPEINP DD DISP=SHR,DSN=VIEW.HLQ.SARTAPE.T000nnnn,
// VOL=SER=nnnnnn,UNIT=CART
//SYSIN DD *
/TADD DDNAME=TAPEINP
ID=(sysout-id,...)
GEN=(gen,...)
RESOURCE=(name,...)
UNIT=xxxxxxxx
STORGRP=xxxxxxxx
/*
//
Case 2 (recovering the report when the report is not on any backup tape but is on a full volume backup created by FSS or DFDSS)
Identify the archival date for the missing report and then locate an FDR or DFDSS full volume backup from that time frame. Restore the full volume backup to a temporary database. Verify the missing report is on disk. Then run SARBCH using a /LOAD control card to load the report to a sequential dataset. Run IEBGENER to put the dataset into Jes in the correct class/destination/form so the View task will archive the report into the production database. Run another SARBCH using the /CHANGE control card and the new function that allows the archive date to be changed back to the original archive date. See QI87782 for documentation on the new backdating feature.
Below is sample JCL for SARBCH /LOAD:
//SAARLOAD JOB ...
//STEP1 EXEC PGM=SARBCH
//STEPLIB DD DISP=SHR,DSN=...........VIEW.CVDELOAD
//SYSPRINT DD SYSOUT=*
//REPORT DD SYSOUT=*
//LOAD DD DSN=XXXXXXXXX,DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(NN,NN),RLSE),
// DCB=(RECFM=XX,LRECL=NNNNNN,BLKSIZE=NNNNNNN)
//SYSIN DD *
/DBASE NAME=VIEW.HLQ
/LOAD DDNAME=LOAD
GEN=nnnnn
ID=id
/*
//
Below is sample JCL for SARBCH /CHANGE:
//SARLOAD JOB ...
//STEP1 EXEC PGM=SARBCH
//STEPLIB DD DISP=SHR,DSN=............VIEW.CVDELOAD
//SYSPRINT DD SYSOUT=*
//REPORT DD SYSOUT=*
//SYSIN DD *
/DBASE NAME=VIEW.HLQ
/CHANGE ARCHDATE=mm/dd/yyyy
GEN=nnnnn
ID=reportid
SEQ=nnnnn
/*
//