Re: Shared member lock API

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

i
Hello Ed,

You wrote:
>I am using the QWCLOBJL API to retrieve object locks for files.  I've run into 
>a
>small roadblock with shared member locks.  The data retrieved from the user
>space identifies a lock as a shared member lock but it does not identify which
>file is actually locked.  WRKOBJLCK permits you to expand member locks with "9 
>-
>Work with shared member locks" from the "Work with Member Locks" screen.  The
>documentation for QWCLOBJL implies that this information is retrievable (it
>refers to shared files and libraries) but

You're just not reading the manual properly.  Don't assume the list section is 
the only 
part containing the data you need.

>Is there an API that duplicates that feature?  I could not locate any for V4R4
>of OS/400.  If there is no API, has anyone written any utilities to do this?

The API is the one you are already using.  You need to check the values in the 
header 
section of the API.  The locks all relate to a single object so there is no 
need to 
repeat the file name in the list.

Quote from the manual:
"   Share.  Whether shared file member locks are associated with the file
   member.

   0           The file is not shared, the file is a physical file, or the
               field is not applicable to object type.
   1           The file is shared.

   Shared file library name.  The name of the library that contains the
   shared file.  This field is blank if not applicable to object type or if
   there is no shared file.  When this field has a value, it applies to all
   entries in the list.

   Shared file name.  The name of one shared file whose members are locked.
   This field is blank if not applicable to object type or if there is no
   shared file.  When this field has a value, it applies to all entries in
   the list. "

I doubt IBM could state it any more obviously than that!  If you are checking 
these 
fields and they are blank when the share flag is set then you should onpen a 
PMR with IBM 
support.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| 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
+---