CBL_GET_RECORD_LOCK

Obtains a record lock on a file.

Note: This routine is not supported in JVM COBOL.

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