Re: IF NOT %FOUND -- RPG400-L

I tend to write pretty short procedures if at all possible. If the condition test is more than a simple "If" it would be a procedure so the main loop is just:

Setll
ReadE
Dow NOT %eof...
If okToIncludeThisOne(<optonal parms>)
cntRecords += 1
DoSomething(<optional parms>)
endif
ReadE
Enddo

As to the first read being EOF, I use a local variable for a record count and test after the DOW loop exits.

If cntRecords = 0;
// Uh Oh - No data
else;
// Do some other stuff
endif;

Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power

--

From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> on behalf of mlazarus <mlazarus@xxxxxxxxxxxx>
Sent: Monday, November 11, 2019 9:31 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: IF NOT %FOUND

Roger, Don,

I personally like it, since it's concise and doesn't require an
additional %EOF() test, but it doesn't lend itself to using the ITER opcode.

-mark

On 11/11/2019 11:25 PM, Don Brown via RPG400-L wrote:

+1

Don Brown

From: "Roger Harman"<roger.harman@xxxxxxxxxxx>

To: "RPG programming on IBM i"<rpg400-l@xxxxxxxxxxxxxxxxxx>

Date: 12/11/2019 02:08 PM

Subject: RE: IF NOT %FOUND

Sent by: "RPG400-L"<rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>

Well, not trying to (re)start the top/middle-tested loop argument, but

I've always preferred this...

setll (field1: field2) file1;

reade (field1: field2) file1;

dow NOT %eof(file1);

if someConditionIsMet;

...doStuff();

endif;

reade (field1: field2) file1;

enddo;

Roger Harman

COMMON Certified Application Developer - ILE RPG on IBM i on Power

-----Original Message-----

From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of

Joe Pluta

Sent: Monday, November 11, 2019 1:34 PM

To: rpg400-l@xxxxxxxxxxxxxxxxxx

Subject: Re: IF NOT %FOUND

Yes, this is my standard process now as well.

I put a slight tweak on it:

setll (field1: field2) file1r;

dou %eof(file1);

reade (field1: field2) file1r;

if %eof(file1);

leave;

endif;

if someConditionNotMet;

iter;

endif;

...doStuff

enddo;

On 11/11/2019 3:12 PM, Greg Wilburn wrote:

I've always done mine like this

setll (field1: field2) file1r;

dou %eof(file1);

reade (field1: field2) file1r;

if not %eof(file1);

... stuff

endif;

enddo;

-----Original Message-----

From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of

SReeves@xxxxxxxxxxxxxxxxxx

Sent: Monday, November 11, 2019 3:13 PM

To: rpg400-l@xxxxxxxxxxxxxxxxxx

Subject: RE: IF NOT %FOUND

Well that explains why it didn't work.

Doesn't explain why no one noticed it in over a decade ;)

Thanks

------------------------------

message: 4

date: Mon, 11 Nov 2019 18:55:45 +0000

from: Kevin Bucknum<Kevin@xxxxxxxxxxxxxxxxxxx>

subject: RE: IF NOT %FOUND

%Found isn't set on for a read.

https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/rzasd/bbfound.htm#bbfound

End of RPG400-L Digest, Vol 18, Issue 651

*****************************************