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

The Ln indicators aka total time indicators in the RPG cycle allow you to generate breaks / subtotals at the end of groups and subgroups of records.

The test in the example, if rewritten to test for *inL1...9, if in the normal section of the code, will only test for the start of a group or subgroup. *inl0 always returns true.

Regards,
Joihn McKay mba
On 23/01/2013 23:06, Buck Calabro wrote:

On 1/23/2013 4:18 PM, Michael Schutte wrote:

I'm not all that familiar with cycle pgm. But just a little... but isn't it
just an indicator that you can check on an if statement? \


/free
main code blah blah blah
if *inL0;
ExSr Break1;
EndIf;

Good question!

Cycle overview:
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=%2Fbooks_web%2Fc092508655.htm

Cycle in depth:
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=%2Fbooks_web%2Fc092508656.htm

Calculation specifications, control level indicator (positions 7 and 8):
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=%2Fbooks_web%2Fc0925086431.htm

The description of /free:
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=%2Fbooks_web%2Fc0925086446.htm
says this about total time calculations: 'To indicate the start of
total calculations, end the free-form group and code a fixed-form
calculation specification with a control level specified in positions
7-8. The total calculations may be specified using free-form calculation
syntax. Since the free-form calculation specification does not include a
control-level entry, calculations to be performed on specific level
breaks should be conditioned using the statement "IF *INLx;".'

The compiler must be very clever to recognise that these are total time
calculations:

/end-free
cl1
c/free
if *inl1;
// do my L1 code here
endif;

I myself don't care for this style, and so I use
/end-free
cl1 exsr l1totcalc
c/free

There is no shame at never being exposed to the full brunt of the RPG cycle.
--buck