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 -- RPG400-L

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

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
From: Barbara Morris <bmorris@xxxxxxxxxx>
Date: Thu, 08 Jan 2009 21:05:10 -0500
List-archive: <http://archive.midrange.com/rpg400-l>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: RPG programming on the IBM i / System i <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

James Perkins wrote:

...
Personally I find the ITER or LEAVESR can always replace a GOTO, if and only
if it's not a cycle program ;-)

Ffile IP ...
C EXSR detailCalcs
CL0 EXSR totalCalcs
/free
begsr detailCalcs;
if whatever;
leavesr;
endsr;
endsr;
begsr totalCalcs;
if *inl1;
...

Put the two C specs into a /copy file, and you can do this:

Ffile IP ...
/free
/copy cycleCtrl;
begsr detailCalcs;
if whatever;
leavesr;
endsr;
endsr;

As an Amazon Associate we earn from qualifying purchases.

This mailing list archive is Copyright 1997-2024 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.