I created my own archive system using DFDSS becuase I have a very small system and DFHSM was an over kill and also I don't have access to tapes. To restore I needed a way to document the backup file in the DFDSS report. Here is what I did (using the CBT PDSE program):
// Jobcard //LISTD EXEC PGM=IKJEFT01,DYNAMNBR=200, // PARM='PDSE FILE(TAPE)' //STEPLIB DD DISP=SHR,DSN=SYS2.PDSE.LINKLIB //SYSPROC DD DISP=SHR,DSN=SYS2.UTIL.CNTL //SYSUADS DD DISP=SHR,DSN=SYS1.UADS //SYSLBC DD DISP=SHR,DSN=SYS1.BRODCAST //SYSPRINT DD SYSOUT=* //SYSTERM DD SYSOUT=* //SYSTSIN DD DUMMY //TAPE DD UNIT=SYSDA, // DISP=(NEW,CATLG),DSNAME=SYS2.ARCHIVE(+1), // SPACE=(CYL,(0,150),RLSE) //SYSTSPRT DD UNIT=SYSDA, // DISP=(MOD,KEEP),DSNAME=SYS2.ARCHIVE.REPORT <=== Puts the name of the archive gdg in the DFDSS report //ARCHIVE EXEC PGM=ADRDSSU,REGION=7M //WRKB DD UNIT=SYSDA,VOL=SER=VPWRKB,DISP=OLD //WRKC DD UNIT=SYSDA,VOL=SER=VPWRKC,DISP=OLD //WRKD DD UNIT=SYSDA,VOL=SER=VPWRKD,DISP=OLD //TAPE DD UNIT=SYSDA, // DISP=OLD,DSNAME=SYS2.ARCHIVE(+1), // SPACE=(CYL,(0,150),RLSE) //SYSPRINT DD UNIT=SYSDA, // DISP=(MOD,KEEP),DSNAME=SYS2.ARCHIVE.REPORT <=== DFDSS report after PDSE listing //SYSIN DD DSN=SYS2.UTIL.CNTL(DUMPWRK),DISP=SHR ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
