*DECK DBXERR
USETEXT DBTEXT
PROC XERR$((MSGNN));
*CALL DEBUGVARS 
START("XERR$")
#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#
IV$($SET$,"++++++EXTERNAL ERROR",MSGNN) 
INTERCEPTOR(253,ISOURCELINE,MSGNN+650,0);  #253 MEANS ERR IN SS SOURCE# 
FINIS("XERR$")
TERM
