FIND-CURRENT( ) method

Changes the lock mode of a record in a buffer.

Return type:

LOGICAL

Applies to:

Buffer object handle

 

Syntax 

FIND-CURRENT ( [ lockmode [ , wait-mode ] ] )

lockmode

An integer expression evaluating to one of the following constants: SHARE-LOCK, EXCLUSIVE-LOCK, or NO-LOCK. You can assign any of these constants to an integer variable. For example, mylock = NO-LOCK. The default is SHARE-LOCK.

waitmode

An integer expression evaluating to one of the following: NO-WAIT, 0, or the Unknown value (?). You can assign NO-WAIT to an integer variable. For example, mywait = NO-WAIT.

The default is to wait.

The following shows an example of the FIND-CURRENT method:

 

DEFINE VARIABLE bh AS HANDLE NO-UNDO.   bh = BUFFER Customer:HANDLE.   DO TRANSACTION:    bh:FIND-CURRENT(EXCLUSIVE-LOCK). END. MESSAGE bh:CURRENT-CHANGED Customer.CustNum.

If the change in lock status succeeds, the method returns TRUE, otherwise it returns FALSE.

If the lock change fails, a message displays. You can suppress the message using NO-ERROR on the statement containing the method.

Executing the FIND-CURRENT method resets the CURRENT-CHANGED attribute. If the record in the database changes between the time the original record was found and the FIND-CURRENT executes, the CURRENT-CHANGED attribute returns TRUE. If the record does not change, then the CURRENT-CHANGED attribute returns FALSE.

See also:

FIND-BY-ROWID( ) method, CURRENT-CHANGED attribute, CURRENT-CHANGED function, FIND-FIRST( ) method, FIND-LAST( ) method, FIND-UNIQUE( ) method, FIND statement