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

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