RE: Print Total Pages in Report

Folks,

Run an RPGII app(yes,use the cycle), determine "L" breaks if you need 
subtotals, count details read and at L time totals, add the pre conceived 
lines to the detail line accum.

At LR, add grand total lines to accum and divide this # by theorectical 
lines per page = grand total pages.

Pass this variable to the RPG report writer.

Yes, there's a bunch more ways to do this instead of a RPGII cycle app, like 
OPNQRYF, SQL, to get grand total pages. It's nice to get out of the RPG 
habit for some things and take advantage of other tools.

Keep open!




>From: "Hockemeyer, Gene" <HockemG@sunbeam.com>
>Reply-To: RPG400-L@midrange.com
>To: "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
>Subject: RE: Print Total Pages in Report
>Date: Sat, 10 Feb 2001 13:08:54 -0600
>MIME-Version: 1.0
>Received: from [192.160.127.90] by hotmail.com (3.2) with ESMTP id 
>MHotMailBC4EEA7900B74004314EC0A07F5A08020; Sat Feb 10 12:07:22 2001
>Received: (from uucp@localhost)by uucphost.mcs.net (8.11.1/8.11.1) with 
>UUCP id f1AK7Hv07002for jmdemko@hotmail.com; Sat, 10 Feb 2001 14:07:17 
>-0600 (CST)(envelope-from rpg400-l-owner@midrange.com)
>Received: from localhost (mail@localhost)by linux.midrange.com 
>(8.9.3/8.8.7) with SMTP id OAA11722;Sat, 10 Feb 2001 14:20:32 -0600
>Received: by linux.midrange.com (bulk_mailer v1.13); Sat, 10 Feb 2001 
>14:20:30 -0600
>Received: (from majordom@localhost)by linux.midrange.com (8.9.3/8.8.7) id 
>OAA11658for rpg400-l-outgoing; Sat, 10 Feb 2001 14:20:28 -0600
>Received: (from uucp@localhost)by linux.midrange.com (8.9.3/8.8.7) with 
>UUCP id OAA11653for RPG400-L@midrange.com; Sat, 10 Feb 2001 14:20:27 -0600
>Received: from sunburn.sunbeam.com ([4.18.78.91])by uucphost.mcs.net 
>(8.11.1/8.11.1) with ESMTP id f1AJAxJ01854for <RPG400-L@midrange.com>; Sat, 
>10 Feb 2001 13:10:59 -0600 (CST)(envelope-from HockemG@sunbeam.com)
>Received: from ftwtx-bdcex01.sunbeam.com (ftwtx-bdcex01.sunbeam.com 
>[172.31.99.52])by sunburn.sunbeam.com (8.9.3+Sun/8.9.3) with ESMTP id 
>NAA10744for <RPG400-L@midrange.com>; Sat, 10 Feb 2001 13:03:40 -0600 (CST)
>Received: by FTWTX-BDCEX01 with Internet Mail Service (5.5.2653.19)id 
><D78MRHX6>; Sat, 10 Feb 2001 13:20:43 -0600
>From rpg400-l-owner@midrange.com Sat Feb 10 12:08:28 2001
>Message-ID: 
><814C1CB77C5DD411A9A5006008F69DAD01920A5D@bocfl-ex01.sunbeam.com>
>X-Mailer: Internet Mail Service (5.5.2653.19)
>Sender: owner-rpg400-l@midrange.com
>X-List-Name: RPG/400 Discussion Mailing List (RPG400-L@midrange.com)
>
>If you are needing a report ... what is the purpose in counting the pages 
>..
>you mean you are going to use the time it would take to put the report in a
>print Que. ... to just count the pages .. Why not put the report on hold ..
>in the Que. .. and if .. it is 'too long' to print.. it is available for
>user viewing..  Seems like a considerable amount of time has been consumed
>over the insignificant .!!  I really am curious .. what is the purpose!!!
>... Normally .. reports of this time are run .. in off hours .. Maybe the
>daily operating routines need some review also!! ..
>
>Gene Hockemeyer
>Sunbeam Corporation
>Manager EDI and EC Business Development
>561 912-4877
>hockemg@sunbeam.com
>
>
>-----Original Message-----
>From: Buck Calabro [mailto:buck.calabro@aptissoftware.com]
>Sent: Friday, February 09, 2001 5:00 PM
>To: RPG400-L@midrange.com
>Subject: RE: Print Total Pages in Report
>
>
>Bill,
>Maybe it's me, or maybe it's just Friday.  Do you in fact have an
>application where you have written a program to calculate the page count 
>and
>a separate program to actually print?  How do you keep the calculate 
>program
>"in synch" with the print program?
>
>As a programmer who has actually had to solve this problem for production
>customers, I rejected this idea out of hand for all of the reasons
>previously posted.  The aforementioned archives carry an exhaustive
>discussion as to why calculating the page count twice is too problematic to
>be practical.  Have you read the archives?  Here is the link to the first
>message: http://archive.midrange.com/rpg400-l/200009/msg00029.html
>Messages which may be interesting to you:
>http://archive.midrange.com/rpg400-l/200009/msg00034.html
>http://archive.midrange.com/rpg400-l/200009/msg00051.html
>http://archive.midrange.com/rpg400-l/200009/msg00076.html
>
>The fundamental concept is that the page count is generated by the same
>program doing the printing, so there can never be a mismatch between the
>calculated page count and the physical page count.
>
>Buck
>
> > -----Original Message-----
> > From:       BillsVilla@aol.com
> > Sent:       Friday, February 09, 2001 2:27 PM
> > To: RPG400-L@midrange.com
> > Subject:    Re: Print Total Pages in Report
> >
> > Are you a programmer or just make up excuses to not do things?
> >
> > Your program is going to print a detail and total line for a reason, 
>when
> > that reason happens ADD 2 TO THE COUNTER.
> >
> > Duh...
> >
> > Bill
>+---
>| 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
>+---
>+---
>| 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
>+---

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

+---
| 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
+---