*DECK DB$ERRI 
      PROC DB$ERRI((NUM));
      BEGIN 
 #
* *   DB$ERRI - SEND INFORMATIONAL MESSAGE.      PAGE  1
* *   BOB MCALLESTER                             DATE  06/24/83 
* 
* DC  PURPOSE 
* 
*     PROVIDE A NON-INTERRUPTIBLE PROCEDURE TO EDIT A MESSAGE AND 
*     SEND IT TO THE CDCS OUTPUT FILE.
*     THE CALLING SEQUENCE TO DB$ERRI IS MUCH SIMPLER THAN A DIRECT 
*     CALL TO DB$ERRE.
* 
* DC  ENTRY CONDITIONS
* 
* D   PARAMETERS
# 
      ITEM NUM;              # INTERNAL NUMBER OF MESSAGE              #
# 
* DC  EXIT CONDITIONS 
* 
*     THE MESSAGE IS WRITTEN. 
* 
* DC  CALLING ROUTINES
* 
*     ANY PROCEDURES THAT ARE SENDING A MESSAGE THAT IS TO GO ONLY
*     TO THE CDCS OUTPUT FILE.
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$ERRE;     # EDIT AN ERROR MESSAGE                   #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     CALL DB$ERRE TO EDIT AND OUTPUT THE MESSAGE.
* 
*     NOTE -
*     DB$ERRE RESIDES IN AN OVERLAY.
*     DO NOT CALL DB$ERRI FROM ANOTHER OVERLAY. 
 #
  
#     LOCAL VARIABLES                                                  #
  
      ITEM LENGTH;           # DB$ERRE RETURNS THE MESSAGE LENGTH      #
      ITEM MSGBUF C(140);    # BUFFER FOR DB$ERRE TO USE               #
  
  
  
#     B E G I N   D B $ E R R I   E X E C U T A B L E   C O D E .      #
  
  
      DB$ERRE(NUM,MSGBUF,LENGTH); 
  
      END 
      TERM
