RE: Sharing a Print File

To get what you want you could create a file one char bigger that the
report width and then use the Control character(*FCFC) on the cpysplf
command to add all these reports into a one file:

CPYS CPYSPLF FILE(QPRINT) TOFILE(*LIBL/MUL_REPORT) MBROPT(*ADD)
CTLCHAR(*FCFC) (you would have to fill in all the Job Name/User/Number
and spool file number to get each file, or you could do this after each
report and use *LAST for spool file number)

Then do a:
OVRPRTF FILE(QSYSPRT) CTLCHAR(*FCFC) and then:

CPYF FROMFILE(MUL_REPORT) TOFILE(QSYSPRT)

This should put them all in the same spool file and printed like they
were before (I say should because it was been a long time that I have
done anything like this, and I don't have time to give it a shot right
now to see if my memory is correct on all the details.) I'm not sure why
we always used *FCFC and not any of the other options.

Not pretty but think it should work.

-- Jim Lowary

-----Original Message-----
From: Jim Lowary
Sent: Wednesday, September 24, 2008 12:42 PM
To: 'rpg400-l@xxxxxxxxxxxx'
Subject: RE: Sharing a Print File

Only way I've ever don this (and it was internally described printer
files) was to do the Over ride with share yes and have the first program
call the second With-out closing the print file then when the second
program ends close the file. (the close causes the system to end the
file and the next open creates a new one)

Sorry I don't remember more details but this was a long time ago in a
program far, far away... (or something like that)

-- Jim Lowary

-----Original Message-----
message: 6
date: Wed, 24 Sep 2008 10:20:54 -0700
from: "Kesterson, Randy" <RPKesterson@xxxxxxxxxxxxxxxxxxx>
subject: RE: Sharing a Print File

Sorry, I meant to add that part to my initial email. I tried doing an
override of the print file with a SHARE(*YES) and a USROPN in both RPG
programs. I did not close the print file on the first program but it
still created two spooled files. I also tried opening with a scope of
*JOB and got the same results.