RE: Repeat print changing only a field

["Rick Rauterkus" <ricker@xxxxxxxxxxxxx>]

> I have, what it seems to be a tricky problem: I want to print
> several copies of
> a document - a huge one -, only changing a field saying for
> instance FIRST on
> all the pages of the first print, SECOND on the second, and so
> on... The number
> of copies is a parameter to the RPG programm.

You could do this by copying the spool file to a database file and then copy
it back to a spool file multiple times overriding the PRTTXT attribute each
time.  Something like this:

CPYSPLF FILE(QSYSPRT) TOFILE(QTEMP/MYSPLFPF) SPLNBR(*LAST) CTLCHAR(*FCFC)
OVRPRTF FILE(QPRINT) CTLCHAR(*FCFC) PRTTXT('First') OUTQ(MYOUTQ)
CPYF    FROMFILE(QTEMP/MySplfPf) TOFILE(QPRINT)
OVRPRTF FILE(QPRINT) CTLCHAR(*FCFC) PRTTXT('Second') OUTQ(MYOUTQ)
CPYF    FROMFILE(QTEMP/MySplfPf) TOFILE(QPRINT)

This should work for text only reports, don't know if it will if you are
using any special functions available with IPDS.

HTH
Rick


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