Sometimes you need to send a report to multiple printers. Below you'll find code for the CL that I use to send duplicate spool files to different printers. You can add as many duplicates as you like. The one thing to remember is that QSYSPRT, QSYSPRT2, etc. must exist on your system. If it does not, make a copy of QSYSPRT and leave it on your system permanently.
CRTPF FILE(QTEMP/DUPRPT) RCDLEN(133) SIZE(*NOMAX) OVRPRTF FILE(QSYSPRT2) CTLCHAR(*FCFC) OUTQ(your outq) FORMTYPE(*STD) COPIES(1) CALL PGM(ABC) /* printer is your output print file in your pgm */ CPYSPLF FILE(PRINTER) TOFILE(QTEMP/DUPRPT) SPLNBR(*LAST) MBROPT(*REPLACE) CTLCHAR(*FCFC) CPYF FROMFILE(QTEMP/DUPRPT) TOFILE(QSYSPRT2) DLTOVR FILE(QSYSPRT2) DLTF FILE(QTEMP/DUPRPT) MONMSG MSGID(CPF0000)
- I prefer to use the SNDNETSPLF command and sending it to a local user. I just create a user profile and directory entry for the printers I want to route print to.
The Send Network Spooled File (SNDNETSPLF) command sends a spooled file to another user on the local system or on a remote system on the SNADS network. The file is placed on the output queue that is specified in the user profile of the user to whom the spooled file was sent.
When the file arrives at the destination system, a message is sent to both the recipient and sending user notifying them of the arrival of the spooled file.
See the HELP text of the SNDNETSPLF command for all the details. The description of the SNDNETSPLF command is taken directly from the HELP text for this command as it is stored on the system.—Kenneth Graap, Search400.com site expert
MORE INFORMATION ON THIS TOPIC
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.