Re: Getting Spool File Information

Mike,

I have to confess, I used a bizarre combo of WRKSPLFA, CPYSPLF, and an RPG
program to extract data on spool entries.

It's pretty robust, if a bit roundabout, and avoids the necessity of buying
tools, or tackling API's.


WRKSPLFA FILE(&SPOOLNAME) SPLNBR(*LAST) +
CRTDATE(*LAST) OUTPUT(*PRINT)
MONMSG MSGID(CPF0000)

CRTPF FILE(QTEMP/PRTIMAGE) RCDLEN(136) SIZE(*NOMAX)
MONMSG MSGID(CPF0000)

CPYSPLF FILE(QPDSPSFA) TOFILE(PRTIMAGE) +
SPLNBR(*LAST) JOBSYSNAME(*ANY) CRTDATE(*LAST)

DLTSPLF FILE(QPDSPSFA) SPLNBR(*LAST) CRTDATE(*LAST)

CALL PGM(IMGGETFDTA) PARM(&FORMLENGTH &FORMWIDTH +
&FORMCPI &FORMLPI &FORMOVF &JOBNAME +
&USERID &JOBNUMBER &FORMTYPE)


The RPG program scans the print image and fills in the parms.

Hope this helps!
Armand Borick


"Mike" <koldark@xxxxxxxxx> wrote in message
news:mailman.1252.1233848375.26163.midrange-l@xxxxxxxxxxxxxxx

Is there a way to get the unique identifier for a spool file with only
knowing the spool file name and assuming there is only one copy in the
OUTQ?
(The Job Name, Job User, Job Number and File Number.) We run a report on
one
day then we want to run another program to split out this vendor created
report into multiple reports a couple days later. This is a payroll report
so it has to be sent out on payday. I haven't seem much with the search
terms I used.

--
Mike Wills
Midrange Programmer/Analyst
http://mikewills.info
http://www.linkedin.com/in/mikewills