Re: Chain doesn't set %EOF

[RPower@xxxxxxxxxx]

Perhaps a READEL and a READEG
hehe.  SETLL and SETGT respectively.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




Tony Carolla <carolla@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
29/03/2005 01:37 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Chain doesn't set %EOF






<snip>
> Rather that doing a SetLL/ReadE combo to start the loop it used to be
> shorthand to code a Chain with:
> 
> Chain ( SomeKey ) File;
> DoW Not %Eof( File );
>    // do something
>    ReadE ( SomeKey ) File;
> EndDo;
</snip>

That would be nice.  Also, when I first learned RPG, I was confused
about the READE op.  In the manual, it led me to believe that if you
open a file, and the first thing you do is a READE, you should be
positioned to the first record with a matching key, if there is one. 
I know now that is not true, and you have to 'prime the pump' with a
SETLL.

Too bad READE didn't have a built in mechanism to do the SETLL for
you, if you wanted it to.  I still like to use SETLL (it seems to be
quicker to use SETLL rather than CHAIN, if you just need to know if a
matching record exists, but don't need the record), but if READE
behaved this way, it would also shortcut the operation.


-- 
"Enter any 11-digit prime number to continue..."
-- 
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.