Re: Good places to use "The Cycle" in today's RPG was->Re: FW: Niftiest thing(s) you have done in RPG ILE or /FREE

I can't resist.

I am one of those weird guys that likes to externalize my I/O. When I
write my procedures to retrieve records, I always give them a indicator as
a return value. Then I can return %EOF or %FOUND in the return value.
This gets the clutter out of my loops. For example:

/Free

Dow getNextInvoice(Customer) ;
// Do stuff here
EndDo ;

/End-Free


This way, there are no leaves or iters, no priming reads, and if there is
no record, the loop never executes.

That's my $2, cause let's face it, you can't get anything for 2 cents
anymore.

:)

Brian May
Project Lead
Management Information Systems
Garan, Incorporated
Starkville, Mississippi

Young i Professionals
http://www.youngiprofessionals.com
--
This is the RPG programming on the IBM i / System i (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.