*DECK DB$MABI 
      PROC DB$MABI (TXT); 
      BEGIN 
 #
* *   DB$MABI - FATAL INTERNAL ERROR PROCESSOR   PAGE  1
* *   BOB MCALLESTER                             DATE  03/30/84 
* 
* DC  PURPOSE 
* 
*     TO ISSUE A MESSAGE TO THE DAYFILE AND ABORT THE DBMSTRD RUN 
*     WHEN A FATAL INTERNAL ERROR IS ENCOUNTERED. 
* 
* DC  ENTRY CONDITIONS
* 
* D   PARAMETERS
# 
      ITEM TXT C(10);              # CONTAINS ROUTINE NAME FOLLOWED BY #
                                   # ERROR NUMBER (FOR THAT ROUTINE)   #
# 
* D   ASSUMPTIONS 
* 
*     A FATAL INTERNAL ERROR HAS OCCURRED DURING DBMSTRD PROCESSING.
* 
* DC  EXIT CONDITIONS 
* 
*     A MESSAGE IS SENT TO THE DAYFILE.  THE DBMSTRD RUN IS ABORTED.
* 
* DC  CALLING ROUTINES
* 
*     DATA BASE UTILITY ROUTINES THAT DETECT AN INTERNAL ERROR. 
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$ABRT;           # ISSUE ABORT MACRO                 #
      XREF PROC DB$MSG;            # PRINT A MESSAGE ON THE DAYFILE    #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     ISSUE A MESSAGE TO THE DAYFILE. 
*     CALL DB$ABRT TO ABORT THE DBMSTRD JOB.
 #
  
  
      ITEM MSG C(50) = "    DBMSTRD INTERNAL ERROR -- XXXXXXXXXX :";
  
  
      C<30,10>MSG = TXT;
      DB$MSG(MSG);
      DB$ABRT;
  
      END 
      TERM; 
