Function to lock record
RLOCK([<workarea | alias>])
The RLOCK() function attempts to lock the current record. If successful, it returns .T. and the record is locked. If the record is already locked by another user then it returns .F.. If the optional <workarea | alias> is specified, then the function will operate in the required location.
do while not rlock() sleep 2 enddo