Re: Allocating a *PGM object

Luis:

When I want only one instance of a program to be allowed to run at a time, 
I use

     ALCOBJ   OBJ((MYLIB/MYPROGRAM  *PGM  *EXCLRD))

at the start of execution of the program itself.  If the allocate fails, I 
have the program terminate (with an appropriate message, of course).

If you wanted just to know whether one OR MORE instances were running, 
make the lock state nonexclusive and check elsewhere for object locks on 
the program object.

You could, of course, lock something else using the same technique instead 
of the program itself, but this does kinda "sound right".

In either case, do remember to deallocate the object when the program 
terminates.

---------------  Luis Rodriguez wrote  ---------------

message: 4
date: Wed, 26 Oct 2005 08:53:02 -0400
from: "Luis Rodriguez" <luisrodriguez@xxxxxxxxxxx>
subject: Allocating a *PGM object

Hi all,

Does anybody know how to check if a program is being used for another
job? I had thought of using ALCOBJ, but it only protects the program of
being deleted.

Thanks for your help,

Luis Rodriguez