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

I have a procedure that returns a zoned(5) field and it is working as
expected.

However, if I have debug active, the first time through the return value
appears to be getting corrupted in the on-exit routine.

My calling program ends up getting a data decimal error.

Subsequent calls while in debug returns the expected value.

If I comment out the return op-code within the on-exit routine it returns
the expected value. Once I add it back I start getting bad values on the
first call when in debug again...even though inerror is not set and it is
not executing that code.

I've went through starting / calling / ending / calling / starting /
calling / ending. Always after starting debug the first call returns a bad
value.

Thoughts?


dcl-c c_rtnErrVal const(-1);

...

On-exit inerror;

If inerror;
...do stuff
Return c_rtnErrVal;
Endif;

End-proc;

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com