*DECK DB$PUNT 
      PROC DB$PUNT(TXT);
      BEGIN 
 #
* *   DB$PUNT -- FATAL INTERNAL ERROR PROCESSOR  PAGE  1
* *   C O GIMBER                                 1/23/76
* 
* DC  PURPOSE 
* 
*     THIS ROUTINE DAYFILES AN ERROR MESSAGE AND ABORTS CDCS WHEN 
*     A FATAL INTERNAL ERROR IS ENCOUNTERED.
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMTER
# 
      ITEM TXT C(10);        #CONTAINS ROUTINE NAME LEFT JUSTIFIED# 
                             #  AND ERROR NUMBER RIGHT JUSTIFIED# 
# 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$ABRT;     #ISSUE ABORT MACRO#
      XREF PROC DB$MSG;      #OUTPUT DAYFILE MESSAGE# 
 #
*     LOCAL VARIABLES 
# 
      ITEM MSG C(40)= "    CDCS INTERNAL ERROR--XXXXXXXXXX:"; 
      CONTROL EJECT;
 #
* 
* DC  DESCRIPTION 
* 
*     PUT PASSED TEXT INTO MESSAGE. 
*     OUTPUT MESSAGE. 
 #
      C<25,10>MSG = TXT;
      DB$MSG(MSG);
 #
*     ABORT CDCS. 
 #
      DB$ABRT;
      END 
      TERM; 
