RE: RECORD LOCK - HOW TO?

Try wrkobjlck mbr(*all) to a print file and dspsplf or wrkobjlck to the
screen.  This only works for an interactive program, but if you're starting
the purge from an interactive shell, it might be enough.

> -----Original Message-----
> From: Rajan.Srinivasan@Allfun.com [mailto:Rajan.Srinivasan@Allfun.com]
> Sent: Tuesday, September 21, 1999 12:33 PM
> To: MIDRANGE-L@midrange.com
> Subject: Re: RECORD LOCK - HOW TO?
> 
> 
> 
> 
> Hello Bruce
>                    Thanks  for your help.   I still looking 
> at the books,
> manuel etc. I have't   used API.  If you can able shed some 
> more light, it will
> be of  much usefull.
> 
>                     But,  sometime few years before, I 
> remember  on one of my
> program, I displayed a message that tells the user  " "Who is 
>  locking the file
> he is trying to Purge,  But, I did'nt  use the API for  that. 
>  I forgot it now.
> I am still struck and trying to recollect what I did.
> 
>                   Anyway, Thanks again
> 
>   Regards
>   Raj
> 
> 
> 
> 
> 
> 
> 
> bvining@vnet.ibm.com on 09-21-99 11:50:29 AM
> 
> Please respond to MIDRANGE-L@midrange.com
> 
> To:   MIDRANGE-L@midrange.com
> cc:    (bcc: Rajan Srinivasan/Servicing/SuperiorBank)
> Subject:  RECORD LOCK - HOW TO?
> 
> 
> 
> 
> Raj,
> 
> The List Object Locks (QWCLOBJL) API in the Work Management chapter of
> the System API Reference sounds like just what you want.  It will give
> you a list of those jobs holding a lock on a given object 
> (member in the
> case of a database file).
> 
> Bruce Vining
> 
> >
> >Hello all,
> >               On one my   program , I am trying to   Purge  
> records and  do a
> >Reorganize on  that  Physical file.   Before doing the 
> purge,  I would  want
> >check for the file lock and if it is locked then I want  to  
> display  the  user
> >that  who is locking the file  and ask the user to try later.
> >
> >                 Could anyone please help on how to accomplise this.
> >
> >  Thanks in advance
> >
> >Regards
> >Raj
> >
> 
> +---
> | 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
> +---
> 
+---
| 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
+---