I'm looking for a CL program to give me the job# of an active job on my ISeries. I have two jobs that have the same name that I want to end but I need to know the job number to do this without intervention. These are batch jobs that could have a different user each time.
Example:
JOB_NAME_1
JOB_NAME_1
Each time an endjob is submitted, a list of all the jobs (including ones on OUTQ)with that name comes up and I need to pick the ones I want to end. If I specify the job name and number the job is ended without the need to pick.
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
douggnau:
> ...no one else can submit jobs to this subsystem.
If the subsystem is an important attribute, then that can be used as a decision element.
Here's a general list of steps that I would use (I can supply details if needed):
1. Create a user space in QTEMP with the Create User Space (QUSCRTUS) API.
2. Call the List Job (QUSLJOB) API to list jobs into the space. Set the qualified job name with '*ALL' for job number and '*ALL' for job user; use the desired job name for the name portion.
3. Loop through the list of jobs.
4. For each job on the list with status = '*ACTIVE', call the Retrieve Job Information (QUSRJOBI) API with format JOBI0200.
5. If the subsystem name from format JOBI0200 is equal to the desired subsystem name, then execute ENDJOB for the fully qualified name. The actual job user and job number will have been supplied in the list of jobs.
6. When the end of the list is reached, delete the user space and return from the CL program. The DLTUSRSPC command can be used rather than the Delete User Space (QUSDLTUS) API.
These are generally some of the easiest APIs to use and some of the ones that are among the first that many developers learn, so you might not have any problem with them. If you've never used system APIs or need guidance, post back. If you can make an attempt at coding first and post your attempt, it might be easier to show where corrections are needed.
Tom
Just to add a quick note: Here's an RPG program that, while it doesn't do exactly what you want it to do, is a great starting point, with all of the main API calls that Tom mentions already coded. Should be an easy mod for an experienced programmer:
http://www.code
- Gary Patterson
Check out my EE profile: http://www.experts-exchang
Gary, thanks for the suggestion but I haven't used RPG in 25 years!!!
Tom, I'm not much of a programmer and haven't used the API's. Just a little CL program once in a while when needed for system administration. I could provide more info if you could start me down the right track, I'm willing to give it a go. I found a CL program that would list the job # of the last time the job was run, but it didn't help. It was OK until the job numbers went from 999887 to 000442. Then it gave the highest number which wasn't the active job.
I have to wonder&
Why do you want to cancel them? You could make it where only one can run at a time.
You could create a data area, or some other object not used for anything else.
In the job with the problem, try to lock that object. If you cannot get an exclusive lock then some other job has it. If that occurs then RETURN.
Add this code at the top of the CL:
CRTDTAARA DTAARA(MYLIB/ISITRUNING) TYPE(*CHAR)
MONMSG MSGID(CPF0000)
ALCOBJ OBJ((MYLIB/ISITRUNING *DTAARA *EXCL)) WAIT(1)
MONMSG MSGID(CPF1002) EXEC(RETURN)
Another way would be to create a JOBQ just for this job.
Steve Bowdoin
These are trigger programs that run in the MQ Series subsystem. There are actually three but the other has a different name. All of them must be active. Each time I try to end MQ gracefully, one of these throws an error which requires user intervention. MQ is then left in an unstable state. About 30 minutes later, a job runs to restart MQ. That job doesn't know MQ didn't end which makes things even worse. I've tried using the system reply list but for some reason it won't answer this message. There are two other messages that this program generates and I've added reply list entries for those that work just fine.
I've changed the JOBD (*RQD) for my profile. Checked the profile for the QMQM user that would start the job @ IPL (it had *SYSRPYL) and changed the JOBD of others that have the potential to start the jobs. Tried everything except the IPL on my test system and this works!! Much easier than where I was trying to go. I'm still not sure what changed from the MQ upgrade (5.2 to 6.0) though since this wasn't a problem before. I'll be trying it on my production system around 2:30a tomorrow.
Many thanks!!
douggnau:
It might be worthwhile to post the details of the message(s) that is causing the problem. There should be an appropriate way to react to it. A system reply list entry might be the best choice, but maybe not. And the entry might need some detail that will restrict actions to your particular conditions without accidentally interfering with an unintended job.
Tom
I have the developer looking at the program now. There are other programs that run in this subsystem that end without needing a reply. The message that is generated is custom to this program and wouldn't come from any other. This system reply list will work. I tested on my production system last night and it worked fine.
Business Accounts
Answer for Membership
by: tliottaPosted on 2009-09-29 at 12:17:56ID: 25452337
douggnau:
This bit needs clarification:
> I have two jobs that have the same name that I want to end but I need to know the job number to do this --without intervention--.
...plus:
> These are batch jobs that could have a different user each time.
Are you asking simply to end any active job that has the given job name? Or should it only end the jobs if they have a particular user name?
A CL program can obtain a list of active jobs that have a given job name. In order to end any of them, the CL program will need to know which ones to end. It can end them all, one at a time. It can check each job and end the ones with a given user name. It can end each one based upon a variety of possible attributes.
But somewhere along the line, it will need to know how to decide which ones to end.
Keep in mind that anyone who can submit a job can assign any valid name to the job. A job might be running that has been given the same name even though it has nothing to do with the process that you're interested in.
How do you want the CL program to make its decisions?
Tom