Re: Free Format Equivalent of LR Processing

Barbara Morris wrote:
> Bill wrote:
>>
>> Is there a free format equivalent to the following?
>>
>> /End-Free
>> CLR                    Exsr srLRRtn
>> /Free
>>
>
> If you're using the RPG cycle, then you can code like this.  Simply
> coding IF *INLR in your detail calcs won't work if your total calcs
> are being run by reaching LR-on in your primary file.
>
> C            EXSR      DETAIL
> CLR          EXSR      TOTAL
>  /free

Unless I'm missing something isn't this the same as my example except the
different subroutine name?

And you have picked up the distinction I was asking about:  LR is turned on
due to EOF on the primary file.  Sort of an opposite of *Inzsr.

I believe I can use Jon's and Michael's simple suggestion if I put the "If
*InLR = *On ;" at the end of the detail specifications since the only
requirement is to write a record to a file at the end of the program
processing.

Bill