I have a service program written a few years ago that has a function to
check for active jobs for a given job or job, user or job, user and job
number. It uses system API's to get the information.

I can send you the code.

On Thu, Oct 29, 2009 at 2:18 PM, Michael Ryan <michaelrtr@xxxxxxxxx> wrote:

Hi Carel -

Yeah...that's what I'm using...well, the retrieve call stack API anyway. I
have an inactivity monitor that monitors the message queue specified in
system values QINACTITV and QINACTMSGQ. I need to know if an interactive
user is using certain program, and do something different if they are.

On Thu, Oct 29, 2009 at 4:10 PM, Carel Teijgeler <coteijgeler@xxxxxxxxx
wrote:

Trigger PGMs may be locked to a job and cannot be replaced at
recompilation. You can check it with WRKOBJLCK *PGM

Back to the OP with some questions:
What exactly do you mean with active PGM in an inactive job?
For what purpose, just curious?

I think it will be using the List Active Jobs API combined with the
Retrieve Call Stack API, as you alredy said.


With regards,
Carel Teijgeler

*********** REPLY SEPARATOR ***********

On 29-10-2009 at 13:25 Charles Wilt wrote:

Unlike *FILEs, *PGM objects are not locked by use.


On Thu, Oct 29, 2009 at 12:03 PM, James H. H. Lampert
Michael Ryan wrote:
I have an inactivity monitor that I need to change to check to see if
a
certain program is in the inactive job's stack. I thought I saw a thread
about that, but I can't find it. Any suggestions? Thanks!

If you're looking around in general, maybe looking for locks on the
program might be of use.



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


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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.