how to know Who is using a program?

[400genius]

Dear all,

How can I know that a program is being used by another user?
I need to write a restriction if someone is using a certain program, the other user who is attempting to access the same option(program) will have a blocking message and he won't be able to access this program/option unless the other user exits this option/program

[jmp]

Re: how to know Who is using a program?

Hi

Allocate the program exclusively (*EXCL).
If its the first job trying to allocate, it will be succesfull.
Other jobs trying to allocate will receive message CPF1002.

ALCOBJ OBJ((MyLib/MyPGM *PGM *EXCL)) WAIT(1)
MONMSG CPF1002 EXEC(DO)
 /* Already Allocated :  Do what you want ... */
ENDDO

/* Allocate successful .... do what you want */

DLCOBJ OBJ((MyLib/MyPGM *PGM *EXCL))

[400genius]

Re: how to know Who is using a program?

Thanks for the solution Jean Michel, But is there any other way?