copy a spool file to another outq

[tasho]

hi all,

may be it's been discussed here before but wanted to bother you with this question: how to copy one spool file to another outq. I don't want to change/move the spool file I want a copy in another outq.

thanks in advance.
tasho

[GLS400]

Re: copy a spool file to another outq

Hi Tasho:

CRTPF FILE(QTEMP/PRINTCOPY)  RCDLEN(133) SIZE(*NOMAX) 

OVRPRTF FILE(QSYSPRT)  CTLCHAR(*FCFC) OUTQ(NEWOUTQ)  FORMTYPE(*STD) COPIES(1) 

CALL PGM(MYPGM) 

CPYSPLF FILE(PRINTER) TOFILE(QTEMP/DUPRPT) SPLNBR(*LAST) MBROPT(*REPLACE)  CTLCHAR(*FCFC) 

CPYF FROMFILE(QTEMP/PRINTCOPY) TOFILE(QSYSPRT) 

DLTOVR FILE(QSYSPRT) 
DLTF FILE(QTEMP/PRINTCOPY) 
MONMSG MSGID(CPF0000)

The above will take the last spool file created in this job (mypgm) copy it to disk and copy the disk file to print.

Also look into sndnetsplf.

Best of Luck
GLS

[tasho]

Re: copy a spool file to another outq

GLS, thx...can you give me an example of using sndnetsplf...how to copy a spooled file to another outq on the same system.

thanks
tasho

[jamief]

Re: copy a spool file to another outq

do WRKSPLF

place a 1 infront of a spooled file

hit F4

type in userid and system name (this can be found in Work with Directory Entries (WRKDIRE) )

then mash the enter key.

find the new spooled file then move it to whatever outq.

jamie