HP Archive Backup System for OpenVMS Guide to Operations

Preparing For Disaster Recovery
7.2 Prolog and Epilog Procedure
$!
$ NextObject:
$!
$ VolSetLog = "ABS_OS_VOLUME_SET_''n'"
$ VolRVNLog = "ABS_OS_START_RVN_''n'"
$ ObjectLog = "ABS_OS_OBJECT_SET_''n'"
$ SavsetLog = "ABS_OS_SAVESET_NAME_''n'"
$ CALL GetVolumeList "''F$TRNLNM(VolSetLog)'" 'F$TRNLNM(VolRVNLog)'
VolumeList
$ Destination = "''F$TRNLNM(ObjectLog)'"
$ Destination = F$EXTRACT(0,F$LOCATE(":",Destination),Destination)
$ Destination = "''F$TRNLNM(Destination)'"
$ IF F$LOCATE(".]",Destination).NE.F$LENGTH(Destination)
$ THEN
$ Destination = Destination + "[...]" - "]["
$ ELSE
$ Destination = Destination + "[*...]"
$ ENDIF
$ WRITE SYS$OUTPUT " $ BACKUP/OVERLAY/EXACT_ORDER/NOASSIST -"
$ WRITE SYS$OUTPUT " _$ tape:","''F$TRNLNM(Savset-
Log)'/LABEL=(",VolumeList,
$ WRITE SYS$OUTPUT " _$ ''Destination'"
$ WRITE SYS$OUTPUT "."
$ n = n + 1
$ IF n.LE.nmax THEN GOTO NextObject
$ WRITE SYS$OUTPUT "."
$ WRITE SYS$OUTPUT "After restoring the savesets rename the MDMS
database"
$ WRITE SYS$OUTPUT "files from ""MDMS$*_DB.DAT_COPY"" to
""*.DAT""/NEW_VERSION."
$ WRITE SYS$OUTPUT "."
$ EXIT
$!
$ GetVolumeList: SUBROUTINE
$!
$ VolumeID = "''P1'"
$ RVN = 'P2'
$ 'P3' == ""
$ VolumeRVN = 1
$!
$ NextVolume:
$!
$ MDMS SHOW VOLUME 'VolumeID'/SYMBOL
$ IF VolumeRVN.GE.RVN
$ THEN
$ IF 'P3'.NES."" THEN 'P3' == 'P3' + ","
$ 'P3' == 'P3' + "''MDMS_INQ_VOLUME_ID'"
$ ENDIF
$ IF "''MDMS_INQ_NEXT_VOLUME'".EQS."" THEN GOTO EndVolumeList
$ VolumeID = "''MDMS_INQ_NEXT_VOLUME'"
$ VolumeRVN = VolumeRVN + 1
$ GOTO NextVolume
$!
$ EndVolumeList:
$!
$ EXIT
The example procedure creates copies of the MDMS database files in the prolog phase. This
allows to save the files in a consistent state. After a restore from the saveset the files need to be
renamed to their original names.
For convenience the procedure prints out the backup commands needed to restore the data using
information in logical names defined by ABS during the save operation.
7-6 Preparing For Disaster Recovery