×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
How would you psuedocode your getNextInvoice() procedure then? Would it
house your setll/reade code? Would it just be chain code? I'm curious. I
think that is a cool way to skin the cat, but I'm more concerned with its
guts :D
Thanks
Bryce Martin
Programmer/Analyst I
Ext. 4777
BMay@xxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/09/2009 05:19 PM
Please respond to
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
To
rpg400-l@xxxxxxxxxxxx
cc
Subject
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
midrange.com
