/* handler for PL/I symbolic debugger fatal errors we can write directly to TI:, since all writes from a priviledged task are treated as breakthrough on RSX v4.0 */ syserror: procedure(msg, errorcode); dcl msg char(*), errorcode fixed bin(15); %include 'putdef.pli'; dcl no_error fixed bin(15) external; /*IS.SUC*/ /**************************************************************************************************************/ if errorcode = no_error then return; call put_skip_list(msg, errorcode); signal finish; end;