Re: IF NOT %FOUND

[Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>]

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