Re: AlcObj

[Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>]

Hi Tim,

> The following CL displays "&Active = N" even when the program 'SORENTCL' is
> running.
[SNIP]
> AlcObj Obj((ExPrdPgm/SORENTCL *Pgm *Excl)) Wait(0)

Running a program doesn't put a lock on the disk object.  That's why you 
can recompile a program while someone is using it (unlike a *FILE)

Though, if you wanted to make it work, you could have SORRENTCL do an 
ALCOBJ on itself when it runs.  That would make the ALCOBJ command fail in 
other applications.

That's the method that I use when I want to make sure that only one person 
is running a given program at a time.

I included a sample of this technique in my newsletter.  You can read it 
at the following link (requires a Pro membership to the iSeries Network):
http://www.iseriesnetwork.com/article.cfm?id=18065

If you don't have a membership let me know, it's a simple program, I can 
write a different sample pretty quickly that I could post here.