*DECK DB$MLD3 
          IDENT  DB$MLD3
          COMMENT LOAD 2ND LEVEL OVERLAYS FOR DB$M30M 
          TITLE  DB$MLD3 -- LOAD 2ND LEVEL OVERLAYS FOR BD$M30M 
          ENTRY  DB.CERR
  
*         SEE DB$MLDV FOR A LIST OF THE COMMON DECK LOADOVL 
  
          LIST   -L 
*#
* *   DB$MLD3 -- OVERLAY LINKAGES FOR DB$M30M    PAGE  1
*CALL LOADOVL 
          LIST   L
          SPACE  5,8
*         OVERLAY ENTRY POINT LIST
  
DB.CARE   OVENT  DB$M32M,3,2       BUILD AREA WORK BLOCK
DB.CBEG   OVENT  DB$M31M,3,1       BEGIN CST BUILDING 
DB.CCHK   OVENT  DB$M31M,3,1       COMPARE SCHEMA/SUBSCHEMA CHECKSUMS 
DB.CCON   OVENT  DB$M35M,3,5       BUILD CONSTRAINT WORK BLOCK
DB.CCPP   OVENT  DB$M31M,3,1       CONSTRAINT PREPROCESSOR
DB.CEND   OVENT  DB$M36M,3,6       END CST BUILDING 
DB.COPN   OVENT  DB$M31M,3,1       OPEN SCHEMA/SUBSCHEMA FILES
DB.COUT   OVENT  DB$M36M,3,6       OUTPUT CST BUILDER STATISTICS
DB.CPRE   OVENT  DB$M31M,3,1       PREPARE TO BUILD WORK BLOCKS 
DB.CREC   OVENT  DB$M33M,3,3       BUILD RECORD WORK BLOCK
DB.CREL   OVENT  DB$M34M,3,4       BUILD RELATION WORK BLOCK
DB=CERR   OVENT  DB$M37M,3,7       FATAL ERROR MESSAGE PROCESSOR
  
  
  
************************************************************************
*                                                                      *
*     E M B E D D E D   P R O C E D U R E   -   D B . C E R R .        *
*                                                                      *
************************************************************************
  
*#
* *   DB.CERR - LINKAGE TO DB$CERR               PAGE  1
* *   BOB MCALLESTER                             DATE  08/30/84 
* 
* DC  PURPOSE 
* 
*     SAVE PARAMETERS IN THE 3,0 OVERLAY WHERE THEY CAN BE ACCESSED 
*     BY DB$CERR EVEN THOUGH IT OVERLAYS THE THE CALLING PROCEDURE. 
* 
* DC  ENTRY CONDITIONS
* 
* D   PARAMETERS
* 
*     SEE DB$CERR 
* 
* DC  EXIT CONDITIONS 
* 
*     DB$CERR ABORTS.  THERE IS NO EXIT.
* 
* DC  CALLING ROUTINES
* 
*     CALLED IN LIEU OF DB$CERR THROUGH A "BECOMES" SUBSTITUTION
*     THAT IS SPECIFIED IN SKELETON.
* 
* DC  CALLED ROUTINES 
* 
*     DB=CERR WHICH LOADS AND EXECUTES DB$CERR. 
* 
* DC  DESCRIPTION 
* 
*     SAVE THE PARAMETERS AND CALL DB$CERR. 
*#
  
*         LOCAL VARIABLES 
  
 PARAM1   CON    0           FIRST PARAMETER
 PARAM2   CON    0           SECOND PARAMETER 
 APLIST   CON    PARAM1      PARAMETER POINTER LIST 
          CON    PARAM2 
  
  
  
*     B E G I N   D B . C E R R   E X E C U T A B L E   C O D E . 
  
  
 DB.CERR  EQ   *+1S17 
*                            (X1) = LOCATION OF FIRST PARAMETER 
          SA2    A1+1        (X2) = LOCATION OF SECOND PARAMETER
          SA3    X1          (X3) = FIRST PARAMETER 
          SA4    X2          (X4) = SECOND PARAMETER
          BX6    X3 
          BX7    X4 
          SA6    PARAM1 
          SA7    PARAM2 
          SA1    APLIST 
          RJ     DB=CERR     CALL DB$CERR VIA DB=CERR 
  
          EQ   *+1S17        ABORT IF DB$CERR RETURNS 
  
  
          END 
