Re: SPLF's to a PF - quick and ez?

On Wed 05-May-2011 09:12 , fbocch2595@xxxxxxx wrote:

I want to copy all joblogs for a certain job to a PF in my library.
There are hundreds of joblogs for the job. I've been manually using

CPYSPLF FILE(QPJOBLOG) TOFILE(ZPGMR97/FILEA) JOB(855542/FB/QPRTJOB)
SPLNBR(487) MBROPT(*ADD)

I've still got hundreds to go.

Do you know of a fast way to do this or do you have a pgm that might
help me out?

As always, any help is appreciated.

If that was something I had to do often, I would code something specific, however for a one-off or occasional requirement:

<code>

/* Add a member to provide a "program" to perform the work: */
ADDPFM QREXSRC CPYJLS TEXT('Copy\add joblogs from a job') SRCTYPE(REXX)

/* Insert following data as rows srcmbr added above */
parse arg Spl_A Spl_Z .
NxtSpl=Spl_A
do while NxtSpl<=Spl_Z
/* UnComment next line to test CL requests generated */
/* say , */
"CPYSPLF FILE(QPJOBLOG) TOFILE(ZPGMR97/FILEA) ",
" JOB(855542/FB/QPRTJOB) SPLNBR("NxtSpl") MBROPT(*ADD)";
if rc<>0 then nop /* ignore; Or, could react somehow */
NxtSpl=NxtSpl+1
end

/* Given the last spooled joblog is numbered 789: */
STRREXPRC CPYJLS SRCFILE(*LIBL/QREXSRC) PARM('488 789')

</code>

Regards, Chuck