How to tell if an object is in use?

[Greg Wenzloff <GWenzloff@xxxxxxxxxxx>]

I have a CLP that will process a file in batch then delete it.   Sometimes a
user first performs maintenance on the file but fails to exit the
maintenance program leaving the file locked.    The CLP which runs in batch
then hangs.

I put the following code in the program that is about to submit the batch
job:

/* SOMETIMES USERS ARE IN MAINTENANCE IN ANOTHER SESSION */             
        ALCOBJ OBJ((&FILEE *FILE *EXCL *FIRST)) WAIT(5)                  
        MONMSG MSGID(CPF0000) EXEC(DO)                                   
                <<< send the user a message to get out of the file  >>>>
                ENDDO                                                    
        DLCOBJ     OBJ((&FILEE *FILE *EXCL *FIRST))                      
  
This ALCOBJ/DLCOBJ does not seem very elegant.   Is there a better way to
tell if an object is being used by someone?

Thanks,
Greg