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

Don,

As I think about this you have a job, let's call it MYJOBI. It submits a
job we'll call MYJOBB. I being interactive and B being batch.

Now, let's use your code, with one little prefix,

SBMJOB JOB(MYJOBB) JOBD(...

AGAIN:
RCVMSG MSGTYPE(*ANY) WAIT(25) MSG(&RMSG) MSGID(&MID)
IF COND(&MID *EQ 'CPC1221') THEN(DO)
CHGVAR VAR(&JOBNO) VALUE(%SST(&RMSG 5 6))
GOTO CMDLBL(DONE)
ENDDO
GOTO CMDLBL(AGAIN)
DONE:
CPYSPLF FILE(file) TOFILE(libl/&USER) +
JOB(&JOBNO/&USER/&JOB)

Now, with this logic you are hoping to see CPC1221 - job 123456/DON/MYJOBB
submitted to job queue ...

Here's the show stopper - How can you be sure that the spool file is
generated yet? What if the job queue is held, the job is still running,
etc? You should not need a loop between AGAIN and DONE. The only message
that RCVMSG should retrieve is the job submitted message, providing you
are doing the RCVMSG immediately after the SBMJOB.

Again, I'd lean towards the data queue solution if I couldn't modify the
logic in the program(s) used in MYJOBB.


Rob Berendt