RE: CL command to check whether an active job of a given name exists?

When I did a semaphore data area, I'd always populate it with the current job info - name, #, user, and any other pertinent info - maybe some parm/key value if applicable.

Just in case I needed to troubleshoot some conflict.

Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power



-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of VERNON HAMBERG Owner via MIDRANGE-L
Sent: Wednesday, May 15, 2024 7:32 AM
To: midrange-l@xxxxxxxxxxxxxxxxxx
Cc: VERNON HAMBERG Owner <vhamberg@xxxxxxxxxxxxxxx>; midrange-l@xxxxxxxxxxxxxxxxxx
Subject: Re: CL command to check whether an active job of a given name exists?

Perzackly, Jim - that's why I suggested QUSLJOB with a specific job name in the parameter - have know James too long, right?

Putting an *EXCL on a *PGM was suggested - I've never seen that work - just tried it with a simple program that sent an *INQ message in it, then locked it and called it. While waiting for a reply, I went to another job under my name in the same system, called the program, and i got the same *INQ message.


So locking the program didn't stop me from using it in a different job - would it block a different user? I can't test that here at the moment.



We often lock something like a *DTAARA to act as that semaphore, sometimes *EXCL, sometimes *EXCLRD, it appears in a quick iSphere search.


Cheers
Vern


On Wed, 15 May, 2024 at 9:02 AM, Jim Oberholtzer <midrangel@xxxxxxxxxxxxxxxxx> wrote:


To: midrange systems technical discussion

All good stuff, however remember that James is sometimes running systems
that are not real current, so the SQL helpers that IBM has built may not be
available. Hence the semaphore.

--
Jim Oberholtzer
Chief Technical Architect
Agile Technology Architects


On Wed, May 15, 2024 at 8:51 AM Sean Courtney <scourtney@xxxxxxxxxxx<mailto:scourtney@xxxxxxxxxxx>> wrote:

Hi,

You could also execute the following SQL within CL

SELECT count(*) into :jobcount
FROM TABLE(QSYS2.ACTIVE_JOB_INFO()) B
WHERE JOB_NAME like '%Jobname%'

If you get jobcount = 0 then you are good ..

Seán

-----Ursprüngliche Nachricht-----
Von: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx<mailto:midrange-l-bounces@xxxxxxxxxxxxxxxxxx>> Im Auftrag von Dan
Bale
Gesendet: Wednesday, 15 May 2024 14:49
An: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx<mailto:midrange-l@xxxxxxxxxxxxxxxxxx>>
Betreff: RE: CL command to check whether an active job of a given name
exists?

This won't work if the jobs that are no longer active still have spool
files.

- Dan Bale

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx<mailto:midrange-l-bounces@xxxxxxxxxxxxxxxxxx>> On Behalf Of Sean
Courtney
Sent: Wednesday, May 15, 2024 7:56 AM
To: 'Midrange Systems Technical Discussion' <midrange-l@xxxxxxxxxxxxxxxxxx<mailto:midrange-l@xxxxxxxxxxxxxxxxxx>

Subject: AW: CL command to check whether an active job of a given name
exists?

Hi ,

I just do a WRKJOB jobname and then monmsg CPF1070

If the MONMSG catches CPF1070 (job not found) then I continue to submit the
new job...

Seán
*** CONFIDENTIALITY NOTICE: The information contained in this communication
may be confidential, and is intended only for the use of the recipients
named above. If the reader of this message is not the intended recipient,
you are hereby notified that any dissemination, distribution, or copying of
this communication, or any of its contents, is strictly prohibited. If you
have received this communication in error, please return it to the sender
immediately and delete the original message and any copy of it from your
computer system. If you have any questions concerning this message, please
contact the sender. ***
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L@xxxxxxxxxxxxxxxxxx> To subscribe,
unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related
questions.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L@xxxxxxxxxxxxxxxxxx>
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related
questions.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L@xxxxxxxxxxxxxxxxxx>
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related questions.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.