RE: Record Lock

Yes it is possible, but what good is knowing the RRN?  Wouldn't the key be
more useful to somebody?

You can't use the file information feedback, because it isn't updated until
AFTER the I/O is successful, but you can pick it out of the program status
data structure:

D                SDS                
D  StsErrMsg             91    170  

On your CHAIN/READ, put an indicator in the LO (error) positions if you're
on an older release, or use the %error BIF if you're on a more recent
release.  When you get an error, check the program status message - it'll
tell you the RRN and the job holding the lock.  This is all documented in
the RPG Reference manual, in the Error Handling section.  About the only
thing that's missing there is the fact that you can't trap file open errors
unless you use the OPEN operation code - implicit open errors (file locked,
missing, etc.) are always handled by the default error handler, not your
program code.

Buck Calabro
Aptis; Albany, NY

> -----Original Message-----
> From: mgross@gbc.com 
> Sent: Thursday, December 09, 1999 1:27 PM
> To:   RPG400-L@midrange.com
> Subject:      Record Lock
> 
> Is it possible to trap the record number from a locked or unavailable
> record
> within a file.  I know that I could use the PSSR to display the errcde
> that
> tells me a lock is in force, but how can I retrieve the record number?
> Thanks
> in advance for any suggestions.
> 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---