*DECK DBRST 
USETEXT CDCSCTX 
      PRGM DBRST; 
*CALL COPYRDCLS 
      BEGIN 
 #
* *   DBRST - RESTORE A DATABASE                 PAGE  1
* *   J E ESLER                                  DATE  06/10/76 
* 
* DC  PURPOSE 
* 
*     RESTORE A DATABASE, USING APPROPRIATE "BEFORE" IMAGES FROM
*     LOG FILES TO UPDATE THE DATABASE. 
* 
* DC  ENTRY CONDITIONS
* 
*     THE MASTER DIRECTORY AND LOG FILES ARE PRESENT AT THE CONTROL 
*     POINT.
* 
* DC  EXIT CONDITIONS 
* 
*     APPROPRIATE RECORDS HAVE BEEN SELECTED FROM THE INPUT LOG FILE
*     AND, OPTIONALLY, APPLIED TO THE DATABASE. NEW LOG FILES AND THE 
*     SELECT FILE ARE PRODUCED ON OPTION. 
* 
* DC  CALLING ROUTINES
* 
*     CALLED BY CONTROL CARD. 
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$RVRS;           #RECOVERY/RESTORE CONTROL ROUTINE# 
      XREF PROC DB$USPN;           #SET PROG NAME IN OUTPUT HEADER# 
 #
*     CDCS COMMON, RECOVERY/RESTORE COMMON
# 
      CONTROL NOLIST; 
*CALL RVRSCOMMN 
      CONTROL LIST; 
 #
* DC  DESCRIPTION 
* 
*     INITIALIZE FOR RESTORE RUN. 
 #
      DB$USPN("   DBRST V");       #SET PROGRAM NAME IN OUTPUT HEADER#
      RECOVRUN = FALSE; 
      UPDATERUN = TRUE; 
 #
*     CALL RECOVERY/RESTORE CONTROL PROGRAM 
 #
      DB$RVRS;
      END 
      TERM
