Unlock a record or release a file lock
nId:=10
USE TestId INDEX TestId NEW
IF TestId->(DBSEEK(nId))
IF TestId->(RLOCK())
DBDELETE()
ELSE
DBUNLOCK()
ENDIF
ENDIF
USE