RE: Releasing Locked Objects

[Bob Crothers <bob@xxxxxxxxxxxxxx>]

If this method is used, you should put something in to limit the 
number of trys.

If the user has left his/her sesion signed on and that is why 
the lock exists, then it probably wont be released untill the 
morning.

The only way I know of for JobA to force JobB to release a lock 
on an object is if JobA issues an ENDJOB on JobB.  Of course, 
this might cause other problems.  But, the lock will be 
released.

Bob

-----Original Message-----
From:   David Gibbs [SMTP:david@midrange.com]
Sent:   Friday, September 11, 1998 6:23 PM
To:     MIDRANGE-L@midrange.com
Subject:        Re: Releasing Locked Objects

At 05:41 PM 9/11/98 , Ravi wrote:
>LOCK:  ALCOBJ (FILE *file *excl)
>MONMSG CPF1002 DO
>              DLYJOB DLY(60)
>              GOTO LOCK
>              ENDDO
>/* DO YOUR COPY HERE */
>DLCOBJ (FILE *FILE *EXCL)

Why not use a WAIT(60) on the ALCOBJ, monitor for the message 
and go right
back into the ALCOBJ.  This way you reduce the possiblity that 
someone else
might grab the file while you are in the delay.

david

--
| Internet: david@midrange.com
| WWW:      http://www.midrange.com/david
|
| ... A man can move mountains, a world can be turned,
| and the greatest of distances easily spanned,
| When the strength that's invested in making a fist
| is transformed into shaking a hand
|
|                       - DMRoth

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to 
MIDRANGE-L@midrange.com.
| To subscribe to this list send email to 
MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to 
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---