Re: On-Exit not working with Debug first time through

On 2019-08-21 10:53 AM, Mitch Gallman wrote:

Thanks Barbara, That could be the issue.

Unfortunately, we are on 7.2 here.

I've removed the on-exit for now.

Hi Mitch,

7.2 PTF SI70906, which fixes this problem with the ON-EXIT return value, has just been approved. It should be available for download in a couple of days.

There is still no PTF available for 7.3 TGTRLS(V7R2M0).

Sorry, I didn't pay attention before that you said you were removing your ON-EXIT for now. There's a circumvention: Ensure that there is a RETURN operation no matter how the ON-EXIT ends.

For your procedure:

dcl-proc getMyVal;

dcl-pi *n zoned(5);
end-pi;
dcl-s inError ind inz;
dcl-s outVal zoned(5) inz(-1);

return outVal;

on-exit inError;

if inError;
return c_rtnErrVal;
endif;

return outVal; // Add this line
end-proc;