Unlocks all records and releases all file locks in all work areas.
nId:=10
USE Tests INDEX TestId NEW
USE Tests1 INDEX Tests NEW
IF TestId->(DBSEEK(nId))
IF TestId->(RLOCK())
DBDELETE()
ELSE
DBUNLOCK()
ENDIF
ELSE
DBUNLOCKALL()
ENDIF
USE