Re: Freeform total calcs

[Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>]

rob@dekko.com wrote:

> That is what I do.  Limitations of what can be done in free form has
> increased the number of subprocedures and subroutines in my programs.

Thanks.  When I was first reading that part of the RPG Reference, I had
thought it was saying I could do it by inserting a blank "CLR" like
this:

      /END-FREE
     CLR
      /FREE
       Total = Something + SomethingElse;
       Write PrtTotals;

       Begsr *Inzsr;

and the compiler would "know" that all subsequent statements until a
Begsr (or an O spec) were to be "CLR" time freeform calcs.  It didn't
work, of course, and I decided the above was a kludge anyway.  Just do
the Exsr at LR time and be done with it.

--
Jeff Crosby
Dilgard Frozen Foods, Inc.
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531

The opinions expressed are my own and not necessarily
the opinion of my company.  Unless I say so.