Re: Free Format Equivalent of LR Processing

[Barbara Morris <bmorris@xxxxxxxxxx>]

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
    begsr detail;
      
    endsr;

    begsr total;
      if *inlr;
         exsr srLRRtn;
      endif;
    endsr;