Re: page n of x

[John Hall <jhall@xxxxxxxxxxx>]

"M. Lazarus" wrote:
> 
>   Speaking of performance...  The fastest and probably the simplest, coding
> wise (if you're using the double pass method), would be to create a numeric
> data area in QTEMP.  At LR time, update the data are w/ the PAGE number
> value.  The 2nd pass would only have to access this data area once at
> *InzSR time.
> 

Nah... this has to be slower than passing a parameter.  You have to
create the dtaara. Update it.  Read It.  Delete it.

vs

DCL         &PAGCNT     *DEC(15 5)  

CHGVAR &PAGCNT VALUE(0)

CALL RPT(&PAGCNT)   /* if zero suppress output */

CALL RPT(&PAGCNT)   /* produce Output */

On other systems I have written a report generation utility which
basically stores the report in dynamic memory.  A linked list of linked
lists.  You can go back and add anything to any page that you want.  You
could even add one page (group of output) to another page.  This is also
very useful for putting the table of contents or the summary page at the
beginning of the report instead of at the end.  I never set it up on the
400 because at the time we were on an F10 and I wasn't sure of the
performance impact.  Also it was written in C and would not have been
that easy to translate to RPG
+---
| 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
+---