*DECK DB$BOOM 
USETEXT BRGENTX 
      PROC DB$BOOM (CALLNUMB, LENGTH);
      BEGIN 
 #
* *   DB$BOOM - OUT OF MEMORY -- CMM OVERFLOW    PAGE  1
* *   P. A. MURRAY                               DATE  06/26/81 
* 
* DC  PURPOSE 
* 
*     TO ISSUE A FATAL DIAGNOSTIC WHEN THE COMMON MEMORY MANAGER (CMM)
*     ENTERS OVERFLOW MODE. 
* 
* DC  ENTRY CONDITIONS
* 
* D   PARAMETERS
# 
      ITEM CALLNUMB I;             # NUMBER OF THE CALL OF PROC DB$BOOM#
      ITEM LENGTH   I;             # NUMBER OF WORDS IN CMM REQUEST    #
# 
* D   ASSUMPTIONS 
* 
*     A CMM OVERFLOW HAS OCCURRED.
* 
* DC  EXIT CONDITIONS 
* 
*     A FATAL ERROR MESSAGE IS ISSUED.  CONTROL WILL NOT RETURN TO THIS 
*     ROUTINE.
* 
* DC  CALLING ROUTINES
* 
*     CMM        COMMON MEMORY MANAGER (DBREC PUSHES THE LOC OF DB$BOOM 
*                ONTO THE OVERFLOW-ACTION STACK)
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$BABT;           # ABORT DBREC RUN                   #
      XREF PROC DB$BERR;           # BASIC RECOVERY ERROR HANDLER      #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     INSERTITEMI           SPECIAL INTEGER INSERTION ITEM
* 
* DC  DESCRIPTION 
* 
*     STORE THE NUMBER OF WORDS NEEDED BY CMM IN INSERTITEMI FOR USE IN 
*     DB$BERR.  CALL DB$BERR WITH A FATAL ERROR.  CALL DB$BABT TO ABORT 
*     THE DBREC RUN.
* 
*     NOTE:  THIS ROUTINE MAY BE ENHANCED IN THE FUTURE TO PROVIDE MORE 
*     SOPHISTICATED ERROR HANDLING, E.G.  CONTINUE PROCESSING DURING
*     SYNTAX CRACKING, BUT DO NOT BUILD THE EXECUTION TABLE.
* 
 #
  
  
  
      INSERTITEMI = LENGTH; 
      DB$BERR(DFERR13);            # ISSUE FATAL ERROR -- OUT OF MEMORY#
      DB$BABT(0);                  # ABORT THE DBREC RUN               #
  
      END 
      TERM; 
