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

[Charles Wilt <charles.wilt@xxxxxxxxx>]

What does the PI look like?

How about the PR you use to call it?

Charles

On Tue, Aug 20, 2019 at 9:18 AM Mitch Gallman <mitch_gallman@xxxxxxxxxxxxx>
wrote:

> 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