Re: Jobs based on JOBD

At 12:39 PM 10/27/97 -0800, Venu Gopal wrote:

>Hi All,
>
>     Is there anyway we can find all the jobs that run with a specific
>JobDescription. Here we have several job descriptions linked to different
>departments. I need to find out all the jobs of our department. So I need
>to look for all jobs that run with our department's JOBD. I know the JOBD
>but from there, how do I get the list of jobs with that JOBD? At present I
>am doing WRKUSRJOB and specifying USER(JOBD name). Any better solutions for
>this?? Thanx in advance for any help/suggestions. Good day.

The QUSLJOB API will give you this information. You can specify jobs with
various status, like *active, *jobq or *outq. You can also specify the kind
of jobs you want to see, like batch, subsystem, interactiv, etc.

In the input parameters you can say what information you want for each job
listed. Format JOBL0200 will return whatever you asked for. The job
description name is identified by key code 1003.

I've had good results running something like this in CL, although you don't
get the performance benefits of pointers that you can in ILE RPG.

The drawback is, you might miss some jobs, since this process doesn't run
continuously. I like J Moreno's solution, which creates a log entry
whenever a job is started. Otherwise, you might try making sure all jobs
leave a joblog. There'll be information about the job description in the
heading. CPYSPLF will let you retrieve this. Of course, if all jobs leave a
joblog, they'll be caught in jobs in *outq status!

HTH

Vernon Hamberg
Systems Software Programmer
Old Republic National Title Insurance Company
400 Second Avenue South
Minneapolis, MN 55401
(612) 371-1111 x480


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---