Wait a minute! You can GOTO from Detail to Total Calcs?
I admit (blushing) that on one of my first programs I actually did that, but
it was on a non-IBM RPG II compiler in '73. When we went to a S/3 in '74, I
think I tried it just for kicks and grins, and the compiler told me I was a
bad boy.
Branching from Detail to Total will, if you're using the Cycle, throw the
program into a loop. That's just not right!
Jerry C. Adams
Well, there was the Battle of the Bulge. -Warren Spahn when asked if he had
ever felt more pressure than pitching in the World Series
IBM i Programmer/Analyst
--
NMM&D
615-832-2730
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Barbara
Morris
Sent: Monday, July 24, 2017 2:51 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Who the bloody eff still codes CABEQ in this century?!?!?!?
On 2017-07-24 12:46 PM, Dan wrote:
On Fri, Jul 21, 2017 at 4:19 PM, Barbara Morris <bmorris@xxxxxxxxxx>
wrote:
...
Speaking of the venerated GOTO, I found this in the RPG reference:
Use a GOTO operation to specify a branch:
- From a detail calculation line to another detail calculation line
- From a total calculation line to another total calculation line
- From a detail calculation line to a total calculation line
- From a subroutine to a TAG or ENDSR within the same subroutine
- From a subroutine to a detail calculation line or to a total
calculation line.
I stumbled upon that last one in some old code a few weeks ago and was
dumbfounded. I never knew we had that feature (sic) in RPG.
Branching from detail calcs to total calcs seems almost as awful. "Sic"
indeed, heh.
I hereby concede that there are more situations than SQL WHENEVER where
GOTOs are difficult, if not impossible, to convert to free-form.
--
Barbara
--
This is the RPG programming on the IBM i (AS/400 and 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.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD
As an Amazon Associate we earn from qualifying purchases.