*DECK DB$MDER 
      PROC DB$MDER; 
      BEGIN 
 #
* *   DB$MDER -- MD CRM ERROR PROCESSOR          PAGE  1
* *   C O GIMBER                                 3/7/76 
* 
* DC  DESCRIPTION 
* 
*     THIS ROUTINE IS CALLED WHEN A CRM ERROR IS ENCOUNTERED READING
*     THE MASTER DIRECTORY.  IT DAYFILES AN ERROR DIAGNOSTIC MESSAGE
*     AND ABORTS CDCS.
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$ABRT;     #CALL ABORT MACRO# 
      XREF FUNC DB$COCB C(10);  # INTEGER TO OCTAL DISPLAY, BLANK FILL #
      XREF PROC DB$MSG;      #OUTPUT MESSAGE TO CDCS DAYFILE# 
# 
* DC  NON-LOCAL VARIABLES 
* 
*     MASTER DIRECTORY FIT
 #
*CALL FITMDDCLS 
# 
*     ERROR MESSAGE.
# 
      ARRAY MSGMDCRM (8); 
        BEGIN 
        ITEM MSGMDCRMERR C(0,0,80)
          = ["  CRM ERROR XXX WHILE ACCESSING MASTER DIRECTORY."];
        ITEM MSGMDCRMNUM C(1,12,3); 
        END 
      CONTROL EJECT;
      MSGMDCRMNUM[0] = DB$COCB(FTMDES[0],3);
      DB$MSG(MSGMDCRM); 
      DB$ABRT;
      RETURN; 
      END 
      TERM; 
