Re: RPG read loops

That's how I do mine - accept for I usually read the file name.


Jeff Stevens
Mize, Houser & Co. P.A.
913 451 1882
JStevens@xxxxxxxxxxxxxx





Tony Carolla <carolla@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/01/2005 04:20 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: RPG read loops






Well, since everyone else is sharing... I usually code such a loop as

Read Format;
Dow Not %EOF(File);
    Stuff1();
    Stuff2();
    Read Format;
EndDo;

If my boss tells me to only process records where location=California,
I would first choose to create an LF, because these types of things
are usually recurring themes, and they will most likely ask for
similar exclusions tomorrow on seven other programs.  But without an
LF:

Read Format;
Dow Not %EOF(File);
    If loc = 'California';
        Stuff1();
        Stuff2();
    EndIf;
    Read Format;
EndDo;


-- 
"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.