CBL_GET_RECORD_LOCK

Syntax:

call "CBL_GET_RECORD_LOCK" using file-handle
                                 record-offset
                                 record-length
                                 reserved

Parameters

  Using call prototype (see Key) Picture
file-handle cblt-bytestream-handle pic x(4) comp-5.
record-offset cblt-x4-compx pic x(4) comp-x.
record-length cblt-x4-compx pic x(4) comp-x.
reserved cblt-x2-compx pic x(2) comp-x.
return-code cblt-x2-compx pic x(2) comp-x.

On Entry:

file-handle
The handle returned from a successful CBL_OPEN_FILE or CBL_CREATE_FILE call.
record-offset
The offset from the start of the file to the first byte to be locked.
record-length
The number of bytes to lock, starting from record-offset.
reserved
Reserved - must be zero.

On Exit:

return-code
One of the following codes:
0 Successful lock
1 Lock is already owned by this run-unit
9/nnn File status code indicating an error condition