Re: Standards question: What isyour feeling about%found&%eofvs.%found(file) & %eof(file) ?

Maybe it's just me, but why chain to a record you just accessed with a
READE?

In any event, this is the usual way I do reade loops:

Setll Key_List File;
if %Equal(file);
Dou %EOF(File);
Reade Key_List File;
If %EOF(File);
Leave;
Endif;

// process your stuff here..

Enddo;
Endif;
This way, the loop is avoided if there is nothing to process.
On Thu, Jul 3, 2008 at 9:32 AM, Lim Hock-Chai <Lim.Hock-Chai@xxxxxxxxxxxxxxx>
wrote:

I didn't know that either. I'm not sure why that would consider a
gotcha when using %eof() vs %eof(filename)?

Reade (myKey) myFile
Chain (myKey) myFile
If %eof(myFile) <== result of this testing would be wrong
Endif

Reade (myKey) myFile
Chain (myKey) myFile
If %eof() <== result of this testing would be wrong also
Endif



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore

I did not know that. Thankfully I always qualify anyway.

<Charles Wilt>
One possible gotcha to using %eof() instead of %eof(filename) is that a
successful SETLL, SETGT, OPEN, or CHAIN will set %eof(filename) = *OFF.
But %eof() will be unchanged.

I always use %eof(filename).

HTH,
</Charles Wilt>
--
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.