HP Archive Backup System for OpenVMS Guide to Operations

7.2 Prolog and Epilog Procedure
Preparing For Disaster Recovery
7.2 Prolog and Epilog Procedure
To use ABS$SYSTEM:ABS$DISASTER_RECOVERY.TEMPLATE, you should rename it to
ABS$SYSTEM:ABS$DISASTER_RECOVERY.COM and use it as a prolog and epilogue for
the save(s).To automatically prepare the system for a save operation you can use the prolog and
epilog feature in the environment object being used. The following example shows you how to
use one procedure for both purposes.
Example 7–4 ABS$SYSTEM:ABS$DISASTER_RECOVERY.TEMPLATE.
$ !
$ ! Abstract:
$ ! This command file is used for saving ABS and MDMS information
$ ! for later disaster recovery. The procedure is used for prolog
$ ! as well as epilog procedures in a SAVE operation.
$ !
$ !
$ ! INPUT:
$ !
$ ! P1 = "" - no operation
$ ! = "PROLOG" - prepares a disaster recovery save operation
$ ! by making online copies of MDMS database files
$ ! = "EPILOG" - does cleanup of save operation by deleting
$ ! copies of files created during prolog
$ ! - lists information about restoring the data
$ !
$ !----------------------------------------------------------------
$ !
$!
$ Start:
$!
$ SET NOON
$ IF P1.EQS."PROLOG" THEN GOTO Prolog
$ IF P1.EQS."EPILOG" THEN GOTO Epilog
$ EXIT
$!
$ Prolog:
$!
$ WRITE SYS$OUTPUT "Disaster Recovery Prolog"
$ WRITE SYS$OUTPUT "."
$ IF F$SEARCH("MDMS$DATABASE_LOCATION:MDMS$DOMAIN_DB.DAT").NES.""
$ THEN
$ WRITE SYS$OUTPUT "Creating online copies of MDMS database
files..."
$ WRITE SYS$OUTPUT "."
$ @MDMS$SYSTEM:MDMS$COPY_DB_FILES
$ ENDIF
$ EXIT
$!
$ Epilog:
$!
$ WRITE SYS$OUTPUT "."
$ IF
F$SEARCH("MDMS$DATABASE_LOCATION:MDMS$DOMAIN_DB.DAT_COPY").NES.""
$ THEN
$ WRITE SYS$OUTPUT "Deleting copies of MDMS database files..."
$ WRITE SYS$OUTPUT "."
$ DELETE/NOLOG MDMS$DATABASE_LOCATION:MDMS$*_DB.DAT_COPY;*
$ ENDIF
$ WRITE SYS$OUTPUT "BACKUP restore commands:
$ WRITE SYS$OUTPUT "."
$ nmax = 'F$TRNLNM("ABS_OS_OBJECT_NUMBER")'
$ n = 1
Preparing For Disaster Recovery 7–5