Re: lock program objects = *EXCL

This feels like a bludgeon type technique, but here goes.

Use the QUSLJOB API. You can specify to get only *ACTIVE jobs into the user
space. You can ask for the 'function', which will contain the program being
used. You use format JOBL0200 for that, and ask for field key 0601. The
value will be in positions 81-90 of each entry.

Loop through the entries. Compare for the program you're looking for.

There's got to be a better way, tho'.

At 01:44 PM 4/3/02 -0500, you wrote:
>I know this has been discussed before, but my search in the archives didn't
>turn up anything definitive.
>
>Is there a way to determine whether a given program object is being used?  I
>want to rename multiple program objects and move objects from another
>library to take their place, but I don't want this to happen until I'm sure
>that no one is using any of the affected applications.  Those that use
>display files, I know I can ALCOBJ the display file object, but I have
>several programs that do not use display files.
>
>- Dan Bale
>(I am *NOT* "Dale"
>http://archive.midrange.com/midrange-l/200105/msg00281.html )
>SAMSA, Inc.
>989-790-0507
>DBale@SAMSA.com
>   Quiquid latine dictum sit altum viditur.
>   (Whatever is said in Latin seems profound.)
>
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
>or email: MIDRANGE-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.