Re: PSDS and Monitor

I've found that same thing to be true, you get the line# of the call to the procedure.

I've wound up putting these in every procedures where I need to know the procedure
Name and the line# - (I suppose it could/should be 'monitor', but it works)

Hth,

John


//********************************
begsr @exit;
//********************************

if gErrMsg <> *blanks;
log_Add(gErrMsg);
msg_User(gAlertUser:gErrMsg);
clear gErrMsg;
endif;

exsr @return;

endsr;

//********************************
begsr @return;
//********************************
return;
endsr;

//********************************
begsr *pssr;
//********************************

if gPssrSw = *on;
exsr @return;
endif;
gPssrSw = *on;

gErrMsg =
msg_BldErr(
%trimr(psds.Pgm)
:'Uncaught *pssr exception, ' +
psds.Msg + ':' + %trimr(psds.ExcDta)
:utlty_ProcName()
:''
:psds.LineNbr
);
exsr @exit;

endsr;