Re: IF NOT %FOUND

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

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