Re: RPG400-L Digest, Vol 3, Issue 231

Correction to my post:

Had John's code been written using the %FOUND BIF,
as mentioned by several others, then John's code is still
the same as the example given by Rusty.

Steve

----- Original Message ----- 
From: "Steve Landess" <sjl_123@xxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Cc: <rluse@xxxxxxxxxx>
Sent: Friday, March 26, 2004 10:54 AM
Subject: Re: RPG400-L Digest, Vol 3, Issue 231


> "Rusty Luse" wrote:
> >
> > Another example which I think is even more efficient. :)
> >
> > C     myklist       setll     myfile
> > C     myklist       reade     myfile
> > C                   dow       not %eof(myfile)
> > C                   eval      rrn = rrn + 1
> > C                   write     mysubfile
> > C     myklist       reade     myfile
> > C                   enddo
>
> Rusty,
> I think you'll find if you look at the code that the compiler
> will generate that your example is EXACTLY the same
> as John Brandt's, thus no more or less efficient.
>
> SETLL followed by an unconditional READE is
> exactly the same as a CHAIN!
>
> The only way to make it more efficient would be to check
> to see if a record was found after the SETLL, and *not*
> execute any of the following code if a record was not found!
>
> Regards,
> Steve Landess
> Austin, Texas
> (512) 423-0935
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>