Re: RPG %FOUND confusion.

On Jul 26, 2021, at 4:22 PM, Therrien, Paul via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

Just because I can't help myself ... to match the original code for *IN41 the designation you would want is:

Dcl-DS Indicators Based(IndicatorPtr);
Record_NOT_Found Ind Pos(41);
End-DS;

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Brian Parkins
Sent: Monday, July 26, 2021 4:02 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: RPG %FOUND confusion.

To build on the examples Peter and Charles have already provided - and
get the result you >prefer< - how about:

Dcl-DS Indicators Based(IndicatorPtr);
Record_Found Ind Pos(41);
End-DS;

Dcl-S IndicatorPtr Pointer Inz(%Addr(*In));

Chain(n) (client:employee#:planyear) Tmpep;
Record_Found = %found(TmpEp);

(Not tested.)

Brian.

On 26/07/2021 16:54, K Crawford wrote:

I have these two lines of code.
Chain(n) (client:employee#:planyear) Tmpep;
*IN41 = NOT %FOUND;

What is the value of *IN41
if row found?
if row not found?

I prefer
if %found(tmpep)
*in41 = *on;
else;
*in41 = *off;
endif

But this is what I have to work with and understand.

TIA
-- KCrawford

--
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
--
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