*DECK DB$BUNT 
      PROC DB$BUNT (TXT); 
      BEGIN 
 #
* *   DB$BUNT - FATAL INTERNAL ERROR PROCESSOR   PAGE  1
* *   P. A. MURRAY                               DATE  06/25/81 
* 
* DC  PURPOSE 
* 
*     TO ISSUE A MESSAGE TO THE DAYFILE AND ABORT THE DBREC 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 DBREC PROCESSING.
* 
* DC  EXIT CONDITIONS 
* 
*     A MESSAGE IS SENT TO THE DAYFILE.  THE DBREC RUN IS ABORTED.
* 
* DC  CALLING ROUTINES
* 
*     DB$BDPF       DUMP DIRECTIVE
*     DB$B20B       CONTROLLING ROUTINE OF THE (2,0) OVERLAY
* 
* 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 DBREC
*     JOB.  (THE BATTER (DBREC) BUNTS AND SACRIFICES HIMSELF FOR THE
*     GOOD OF THE TEAM (OTHER USERS WAITING FOR SYSTEM RESOURCES).) 
* 
 #
  
  
      ITEM MSG C(40) = "    DBREC INTERNAL ERROR--XXXXXXXXXX:"; 
  
  
      C<26,10>MSG = TXT;
      DB$MSG(MSG);
      DB$ABRT;
  
      END 
      TERM; 
