|
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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.