Re: QUSRJOBI API -- MIDRANGE-L


On 18/11/2006, at 12:25 AM, Charles St-Laurent wrote:

I try to use the QUSRJOBI API to know when a submmited job ends. I didaRPGLE program that interfaces the API as an external program. Then Icall my
RPG program like that:

1) I do my SBMJOB
2) I do a RCVMSG MSGTYPE(*ANY) MSGDTA(&MSGDTA) MSGID(&MSGID) toknow the
full qualified name of the job I want to verify.
3) I call my RPG program with the jobname, the job user and the job idI
retrieved previously from &MSGDTA
The first time I call my RPG program, everything works fine as the jobis inthe JOBQ. But when the job begins (Status Code = *Running), it seemsthatthe OS gives a new Job ID to my submited job. My RPG program no longersee
my first job, so it returns the status code "Job Not Found".
I tried to reference the submited job with its internal job id. Thefirsttime I call my RPG program, I call it with the full qualified job nameand a
blank internal job id. The subsequent calls to my RPG uses the filled
internal job id, jobname = "*INT" and the rest of the full qualifiedname
equals to blanks... I believed that this internal id was unique and
invariant, even if the job id changes when the job is running...

I wonder what am I doing wrong... Any suggestion?

First point: The system does not change the qualified name of the jobor the internal ID during the life of the job. So if the API says thejob is not found it can only because of two things:

        1) The job no longer exists

2) Your code messes up the parameters on the subsequent calls to theAPI

Second point: If a job ends without creating any spooled files the jobis gone.

So presuming your code is correct the most likely cause is that thesubmitted job does not create any spooled output and it runs for a veryshort time interval. On the first call to QUSRJOBI the submitted job isfound on the job queue but by the time you call the API again the jobhas completed, has no spooled output, and is gone from the system.

It appears you don't want the main program to continue until thesubmitted job has completed. If the job is not found then you know ithas completed. However, given that you are already receiving themessage to give the qualified job name you might find it easier to dothe following:


1) SBMJOB ... MSGQ(some-lib/job-name)
2) RCVMSG     MSGQ(some-lib/job-name) WAIT(*MAX) RMV(*YES) MSGID(&MSGID)

3) If &MSGID is CPF1241 the job ended normally. If CPF1240 the endedabnormally.

4) Continue with normal operation

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------