RE: How to tell if an object is in use?

[<Rick.Chevalier@xxxxxxxxxxxxxxx>]

Greg,

What you have and the suggested work with object locks API are about it that I 
know of.  In your case for simplicity I would probably use the ALCOBJ option.  
If it's important that no one be using the file during this job run I would 
probably move the DLCOBJ to the end of the job.

Rick

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Greg Wenzloff
Sent: Wednesday, February 09, 2005 7:45 AM
To: 'midrange-l@xxxxxxxxxxxx'
Subject: How to tell if an object is in use?


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                                                                      

Privileged and Confidential.  This e-mail, and any attachments there to, is 
intended only for use by the addressee(s) named herein and may contain legally 
privileged or confidential information.  If you have received this e-mail in 
error, please notify me immediately by a return e-mail and delete this e-mail.  
You are hereby notified that any dissemination, distribution or copying of this 
e-mail and/or any attachments thereto, is strictly prohibited.