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

[rob@xxxxxxxxx]

Maybe do the ALCOBJ, if it fails, use the api to notify, blast, or 
otherwise deal with the offending jobs.  Oh heck some code

Retry:
ALCOBJ...
MONMSG ... DO
  Call api, process api list accordingly
  goto retry
enddo


Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





<Rick.Chevalier@xxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
02/09/2005 10:01 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
<midrange-l@xxxxxxxxxxxx>
cc

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







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.

-- 
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.