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

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

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.