Re: Trying to setof *INKF

I have a check
IF wERRORS
Eval *inkf = *off
endif

I use RSTDSP by default.

Darryl Freinkel
A4G
Telephone: 770.321.8562 Mobile: 678.355.8562

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Sam_L
Sent: Thursday, June 24, 2021 2:35 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: Trying to setof *INKF

Yes, but where is it being reset? Putting a watch on it should stop when
*INKF changes. Perhaps at at place you don't expect somewhere else in the
code.

Another thought, is RSTDSP in effect and that is somehow doing it?


On 6/24/2021 2:22 PM,
dfreinkel@xxxxxxxxxxxxxxxxx wrote:

I do see *INKF = '0' in debug.

Seems the DOU finds another *INKF

Darryl Freinkel
A4G
Telephone: 770.321.8562 Mobile: 678.355.8562

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
Sam_L
Sent: Thursday, June 24, 2021 2:17 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: Trying to setof *INKF

In debug, can you put a watch on the indicator and see where it changes?

--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

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