*DECK DBIERR
USETEXT DBTEXT
PROC IERR$((MSGNN),(OPTION)); 
*CALL DEBUGVARS 
CONTROL IFNQ CB5$CDCS,"NO"; 
XREF BEGIN
LABEL END$DT; 
END 
CONTROL FI; 
START("IERR$")
#THIS PROCEDURE IS USED TO DISPLAY IN LINE ERROR MSGS 
WHEN DEBUGGING - THE CALL TO INTERCEPTOR IS EXECUTED
REGARDLESS OF WHETHER DEBUG MODE HAS BEEN SELECTED# 
ITEM MSGNN I; #MESSAGE CODE -SEE XREF TO FIND CALLS#
ITEM OPTION I; #SEVERITY CODE FOR INTERCEPTOR#
CONTROL IFNQ CB5$CDCS,"NO"; 
IV$($SET$,"======= INTERNAL ERROR =",MSGNN) 
INTERCEPTOR(253,ISOURCELINE,MSGNN+600,0);  #253 MEANS ERR IN SS SOURCE# 
IF OPTION EQ ABORT
  THENB ("ABORT REQUESTED") 
  GOTO END$DT;
ENDIF 
CONTROL FI; 
FINIS("IERR$")
TERM
