Click above to get retro games delivered to your door ever month!

N_ISRLOCK( [ <nRecNo>|-1 ] )


Parameters

<nRecNo>
Number of a record to check.

-1
Indicates that you want the record number of the record locked by the 
current station, if any record is locked.


Returns

If the function is called with no argument, the current record is 
assumed. If a record number is passed, the return value indicates the 
state of the specified record. In either case, logical true is returned 
if the record is locked by the current station, false if it is not 
locked by the current station. True is also returned if the file is 
open in Exclusive mode at the current station or if the file has been 
locked with FLOCK() by the current station.

If -1 is passed, the function returns the record number of the record 
locked by the current station, or zero if no record is locked by the 
current station. If multiple records have been locked with N_MLOCK() or 
N_SETMULTI(), the function returns the number of the first record 
locked.


Description

Note that the function will return false if another station has the 
record locked.


Example

IF ! N_ISRLOCK(1000)
   GOTO 1000
   DO WHILE ! RLOCK()
   ENDDO
ENDIF