*DECK BRGENTX 
      PRGM BRGENTX;          # BASIC RECOVERY GENERAL SYMPL TEXT       #
      CONTROL STEXT;
  
*CALL CUGDFDCLS 
  
  
*CALL BERDFDCLS 
  
# *CALL BRGDFDCLS # 
*CALL BRGDFDCLS 
  
*CALL BURDFDCLS 
  
      COMMON DB$BCOM; 
        BEGIN 
  
# *CALL BRGITDCLS # 
*CALL BRGITDCLS 
  
# *CALL EXTBLDCLS # 
*CALL EXTBLDCLS 
  
#***********************************************************************
*     FIT - FILE INFORMATION TABLE
# 
  
      ARRAY FIT [0:DFFITSIZE] S(1); 
*CALL FITDCLS 
#***********************************************************************
*     FET - FILE ENVIRONMENT TABLE
# 
  
      ARRAY FET [0:DFFETLEN] S(1);
*CALL FETDCLS 
  
#***********************************************************************
*     MDPIT - PERMANENT FILE INFORMATION TABLE BASED ARRAY
# 
  
      BASED ARRAY MDPIT S(1); 
        BEGIN 
*CALL MDPFIDCLS 
        END 
  
#***********************************************************************
*     MDSCDIR - MASTER DIRECTORY SCHEMA DIRECTORY TABLE BASED ARRAY 
# 
  
      BASED ARRAY MDSCDIR S(DFMDSCDESIZE);
        BEGIN 
*CALL MDSCDDCLS 
        END 
  
#***********************************************************************
*     SID - SCHEMA ID TABLE BASED ARRAY 
# 
  
      BASED ARRAY SID;
*CALL SCIDDCLS
        END 
  
*CALL MDBCMDCLS 
  
      TERM
