Re: Printer job number

[Vernon Hamberg <vhamberg@xxxxxxxxx>]

You don't need the user, as it's always the same user - QSPLJOB.

What you call a printer job is actually a writer job, and each one of those
has unique name. So you can use DSPJOB WRITERNAME OUTPUT(*PRINT)
OPTION(*DFNA) to get a spooled file with, in this case, the option 2 values
from a DSPJOB. The reason for the OPTION is to minimize the size of the
spooled file. You can leave it off.

Then you CPYSPLF QPDSPJOB to a physical file, then read the 2nd record,
where the job number is in position 77. You can get to the 2nd record with
OVRDBF FILE(OUTF) POSITION(*RRN 2), followed by RCVF in a CL program.

The [hysical file has to exist before running the command, and also before
compiling the CL. Should have RCDLEN(132) for this purpose.

PGM        PARM(&WRITER)

DCL        VAR(&WRITER) TYPE(*CHAR) LEN(10)
DCL        VAR(&JOBNUM) TYPE(*DEC) LEN(6 0)

DCLF       FILE(VERN/SPLF)

DSPJOB     JOB(&WRITER) OUTPUT(*PRINT) OPTION(*DFNA)
CPYSPLF    FILE(QPDSPJOB) TOFILE(VERN/SPLF) SPLNBR(*LAST)
DLTSPLF    FILE(QPDSPJOB) SPLNBR(*LAST)

OVRDBF     FILE(SPLF) POSITION(*RRN 2)
RCVF

CHGVAR     VAR(&JOBNUM) VALUE(%SST(&SPLF 77 6))

DLTOVR     FILE(SPLF)

ENDPGM

At 04:58 PM 7/4/02 +0100, you wrote:

>Is there an easy way to retrieve the job number of a printer job in
>subsystem QSPL, knowing the user and the printer name?
>Thanks for your help.
>
>A.Sousa