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