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

["Don Cavaiani" <dcavaiani@xxxxxxxxxxxxx>]

Rob,

I need to get up to speed on data queues.  I may try that now that I am
stuck.

Don 

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Wednesday, May 14, 2008 2:13 PM
To: Midrange Systems Technical Discussion
Subject: 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