Hi Bill
From past experience - I have found that there is no reliable formula to calculate what you are wanting
If this is a MUST - here is what I have done
Execute the logic twice but using a switch
The first time through, the switch is set off. Nothing is actually printed, but line counts, page counts are incremented as if it was
Save the page count
The second time through, the switch is set on to print the spool file, the line count is incremented as well as the page count the of page is the saved page count
Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bill Howie
Sent: Tuesday, October 21, 2014 11:20 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: How to reliably determine total pages
Hello all,
I'm working on a program that generates a report which includes a "Page X of Y" description in the corner. I'm struggling trying to get the total number of pages to reliably be calculated. I'll try to explain how it works now. The program does the "two-loop" approach where it reads through all the items it will eventually print to try to calculate a total number
of items. I believe this part of it to be working correctly (but I could
be wrong).
At the end of this first loop it attempts to calculate the total number of pages. I'll preface this by saying that this report basically has what
I'll call a "header" page and a "continuation" page. The "header" page
prints mostly heading information and one or two detail items. Then the
"continuation" page just prints detail items. Here's how the calculation
currently works:
if total number of lines > max allowable lines on "header" page then total lines = total lines - (total lines - max allowable on "header")
- 1
total pages work field = (total lines/max allowable lines on continuation
page)
if the decimal portion of the total pages work field > 0 total pages = whole portion of the total pages work field + 2 else total pages = total pages work field + 1 endif endif
This works sometimes, and sometimes it doesn't. It doesn't appear to be
as simple as just dividing the total number of lines by the maximum per page, because we have two different maximums (because of the whole "header"
and "continuation" thing).
Hopefully this isn't COMPLETELY confusing. Anyone out there know of a
really reliable formula for computing this when two different max lines
amounts are involved? As always any help is appreciated. Thanks!
Bill
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
