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.