RE: RPG %FOUND confusion. -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

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 mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.