RE: CPYSPLF - but don't know the spooled file number

[rob@xxxxxxxxx]

Again, remember the job may not be ready, but this program will tell you 
&jobname is equal to DSPOBJD2.

PGM
DCL &MSGKEY  *CHAR 4
DCL &MSGDTA  *CHAR 46
DCL &MSGID   *CHAR 7
DCL &JOBNAME *CHAR 10
DCL &JOBUSER *CHAR 10
DCL &JOBNBR  *CHAR 6
DCL &JOBQ    *CHAR 10
DCL &JOBQLIB *CHAR 10

SBMJOB     CMD(DSPOBJD OBJ(DONNY) OBJTYPE(*PGM) OUTPUT(*PRINT)) +
             JOB(DSPOBJD)
SBMJOB     CMD(DSPOBJD OBJ(DONNY) OBJTYPE(*PGM) OUTPUT(*PRINT)) +
             JOB(DSPOBJD2)
RCVMSG      RMV(*NO) MSGTYPE(*LAST) +
            KEYVAR(&MSGKEY) MSGDTA(&MSGDTA) MSGID(&MSGID)

CHGVAR &JOBNAME (%SST(&MSGDTA  1 10))
CHGVAR &JOBNBR  (%SST(&MSGDTA 11  6))
CHGVAR &JOBUSER (%SST(&MSGDTA 17 10))
CHGVAR &JOBQ    (%SST(&MSGDTA 27 10))
CHGVAR &JOBQLIB (%SST(&MSGDTA 37 10))
DMPCLPGM
ENDPGM

Compiled and tested.  See the output created by DMPCLPGM. 

Rob Berendt