Re: I am new to RPG language...need some pointers!

After every read you say something like:

EVAL CompanyTotal = CompanyTotal + RecordTotal
EVAL GrandTotal = GrandTotal + RecordTotal
or
ADD    RCDTTL     COMPTTL
ADD    RCDTTL     GRNDTTL
depending on what version of RPG you are using.

After you reach a new company number, print out an exception stating the
subtotals and clear your company totals to zero, leaving your grand totals
alone.


> >
> >Phil Hayes wrote:
> >
> >> How do you set a counter to read a record at a time within a DOWHILE
> loop? I am getting a correct answer to the row level, but not on the column
level
> or grand total. This would help greatly!!!
> >>
> >> Phil
> >>



Remember DOWHILE can be deceptive and they could be intializing the totals to
*Zero too soon on the change level condition when the compare field is blank.
Especially if the break level save field "IFNE" condition is after the first add
instead of before or was not intialized correctly in Housekeeping Subroutine. We
need to see if the code breaks at the right time.  So a big clue would be are
the totals off by the first or last record amount?








+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---