Re: Printing the same spool file in TWO printers in the same time

Marco Stanghellini" <mstanga@tin.it> wrote:

>In our company usually we have ti print spool files of about 10,000 pages
>and so I need a command to duplicate the same spool file to another *OUTQ
to
>let me print it on another PRINTER.

Marco,

The simplest way is to use the CPYSPLF command to copy your output to a
physical file, which needs to have a record length 1 character greater than
the print width. Be sure to specify first character forms control -
CTLCHAR(*FCFC).  Then you need to copy the physical file to a second
spooled file. The following commands should serve as a guide.

CRTPF FILE(QTEMP/XXXX) RCDLEN(133)
CPYSPLF FILE(YYYY) TOFILE(QTEMP/XXXX) JOB(123456/MARCO/MYJOB) SPLNBR(1)
CTLCHAR(*FCFC)
OVRPRTF FILE(QSYSPRT) CTLCHAR(*FCFC) OUTQ(PRT123) PAGERANGE(5001 *END)
CPYF FROMFILE(QTEMP/XXXX) TOFILE(QSYSPRT)

This should work although it is not the most efficient way and it will not
automatically replicate all the original
spooled file's attributes. If there are any special ones you will need to
add them to the OVRPRTF command.

You can do the whole operation much more efficiently using the print API's,
 but you will need to do a bit more
programming.

You might also investigate overriding the printer file to SCHEDULE(*IMMED).
 This will cause it to start printing
as soon as the program begins writing it, and you won't have to wait until
all 10,000 pages have been output
and the file closed. This might tie up a printer unacceptably, though. Try
it and see.

Good luck,

Dave Kahn
ABB Steward Ltd.


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---