*DECK DB$BETX 
          IDENT  DB$BETX
*#
* *   DB$BETX - BASIC RECOVERY ERROR MESSAGES    PAGE  1
* *   P A MURRAY                                 DATE  06/17/81 
* 
* DC  PURPOSE 
* 
*     THIS COMPASS ROUTINE DEFINES THE ERROR TEXTS FOR BASIC RECOVERY.
* 
* DC  ENTRY CONDITIONS
* 
*     THIS ROUTINE IS NOT ENTERED.  IT IS REFERENCED AS A TABLE.
* 
* DC  EXIT CONDITIONS 
* 
*     NOT APPLICABLE. 
* 
* DC  CALLING ROUTINES
* 
*     DB$BERR    BASIC RECOVERY ERROR PROCESSOR 
* 
* DC  CALLED ROUTINES 
* 
*     NONE
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     THIS ROUTINE USES THE MSG MACRO TO DEFINE THE ERROR TEXTS FOR 
*     BASIC RECOVERY. 
* 
*     NOTE - THE MACRO PUTS A ZERO WORD AFTER EACH ERROR MESSAGE AND
*            THEN BACKS UP ONE WORD BEFORE THE NEXT MESSAGE.
* 
* D   HOW TO ADD AN ERROR 
* 
*     LOCATION FIELD IS THE ERROR NUMBER IN DECIMAL (REFERRED TO VIA A
*     DEF).  THE FIRST PARAMETER IS "F" FOR FATAL ERRORS AND "N" FOR
*     NON-FATAL ERRORS.  THE SECOND PARAMETER (ENCLOSED IN PARENTHESES) 
*     IS THE ERROR TEXT.  THE TEXT CAN CONTAIN ONLY BALANCED PAIRS OF 
*     PARENTHESES.  THE TEXT CANNOT CONTAIN AN UP ARROW (') BECAUSE THIS
*     IS THE INSERTION CHARACTER.  THE TEXT CANNOT CONTAIN A QUOTE
*     BECAUSE THIS IS THE MICRO SUBSTITUTION CHARACTER. 
* 
* D   HOW TO ADD AN INSERTION IN A MESSAGE
* 
*     INSERTIONS ARE MADE IN MESSAGES WHEN AN UP ARROW (') FOLLOWED BY A
*     KEY CHARACTER IS ENCOUNTERED.  SEE DB$BFTX FOR A DESCRIPTION OF 
*     THE INSERTION TYPES AND THE STRUCTURE OF THE TABLE GENERATED. 
* 
*#
  
          MACRO  MSG,NUM,FF,M 
PARM      MICRO  1,,#_M_# 
LEN       MICCNT PARM 
LENW      SET    LEN+9
LENW      SET    LENW/10
ERRFLAG   MICRO  1,,*0* 
ERRFLAG   MICRO  1,,*4B*
          IFC    EQ,*FF*N*,1
ERRFLAG   MICRO  1,,*0B*
          IFC    EQ,*"ERRFLAG"*0*,1 
          ERR    ERROR TYPE NOT SPECIFIED 
          ORG    *-1
          VFD    3/"ERRFLAG",3/0,12/NUM,18/0,12/LEN,12/LENW+1 
          DIS    LENW,M 
+         VFD    60/0 
          ENDM
  
  
*CALL DEFMACRO
  
*CALL BERDFDCLS 
          ENTRY  DB$BETX
DB$BETX   VFD    60/0 
DFERR02   MSG    N,(CIO ERROR 'E OCCURRED DURING REWIND OF FILE 'B.)
DFERR03   MSG    N,(CIO ERROR 'E OCCURRED WHILE WRITING TO FILE 'B.)
DFERR04   MSG    N,(PFM ERROR 'C OCCURRED WHILE EXTENDING FILE 'B.) 
DFERR05   MSG    N,(PFM ERROR 'C OCCURRED WHILE ATTACHING FILE 'B.) 
DFERR06   MSG    N,(CRM ERROR 'D OCCURRED DURING THE OPEN OF FILE 'G.)
DFERR07   MSG    N,(CRM ERROR 'D OCCURRED WHILE WRITING TO FILE 'G.)
DFERR08   MSG    N,(CRM ERROR 'D OCCURRED DURING THE CLOSE OF FILE 'G.) 
DFERR09   MSG    N,(CIO ERROR 'E OCCURRED WHILE READING FILE 'B.) 
DFERR10   MSG    N,(JOURNAL LOG FILE 'B CAN NOT BE DUMPED -- STATUS IS *
,INACTIVE*.)
DFERR11   MSG    N,(NO MD JOB INFO SPECIFIED FOR SCHEMA 'A.)
DFERR12   MSG    N,(ERROR 'C OCCURRED ON THE REQUEST OF THE JOURNAL LOG 
,FILE DUMP FILE.) 
DFERR13   MSG    F,(MANAGED MEMORY OVERFLOW -- DBREC ABORTED.)
DFERR14   MSG    N,(ERROR 'C OCCURRED ON THE LABEL OF THE JOURNAL LOG FI
,LE DUMP FILE.) 
          END 
