RE: Indicating Total Time in Free Form when using RPG Cycle - Solved

My sense of the use of level break indicators is that if you refer to a
level break indicator within the code you are only hitting the logic at the
detail time. The only way to hit the level break total-time calcs is by
having the 'CL1', 'CL2', 'CL whatever' in columns 6,7, & 8. All other
references to the Level Indicators are detail time calcs.
That is the only way it makes sense to me.

Paul Therrien

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Vernon Hamberg
Sent: Thursday, January 24, 2013 6:04 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Indicating Total Time in Free Form when using RPG Cycle -
Solved

You're basically correct, so far as you go. You have to have a primary file
for the cycle processing to mean much, if anything.

In /free there are no columns on the left for the indicators, so it's not
obvious what you would do. Maybe one could replace the

/end-free
CL0 do-something, like call a procedure
/free

with

if *inl0;
do-something, like call a procedure;
endif;

I've never even thought of doing something like this - anyone willing to
try? I'm driving to Chicago for COMMON tomorrow, no time.

Hey, I'm just making wild guesses here after a much-too splendiferous day

Vern

On 1/24/2013 5:42 PM, Booth Martin wrote:

FREE still uses the cycle, so far as I know. It is us programmers who
have added in the redundant code of the DOW not %EOF loop. Take out
that loop, and so far as I know, you are back to the original RPG cycle.

Setting on the L1-L9 indicators is usually done in the I specs, I
believe? In which case it is probably easier to finish converting the
old code and do your L1 calculations within the Calc specs and use
named indicators and/or conditioned sub routines in place of L1-L9.

If the issue is L0 then my understanding is that L0 is always on and
therefore not relevant to solving any practical programing problems.



On 1/24/2013 5:31 PM, Vernon Hamberg wrote:

Well, Jeff, you COULD just write your own level-break processing and
keep it all in /free - I'm almost kidding, it's not the hardest thing
in the world to do.

On 1/24/2013 2:12 PM, Jeff Young wrote:

Thank to everyone that responded.
It appears that (as I presumed) in order to implement this, I indeed
must break out of /free mode to set a CLx spec to indicate the start
of RPG Cycle Total Time processing. After this statement, I can
resume /free mode for all other logic and it will be part of the total

cycle.

Thanks again.

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