|
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.