This function return a list of records in the database work area
FUNCTION Main()
LOCAL aList:={}
LOCAL x:=0
USE Tests NEW
DBGOTO(10)
RLOCK()
DBGOTO(100)
RLOCK()
aList:=DBRLOCKLIST()
FOR x:=1 TO LEN(aList)
? aList[x]
NEXT
USE
RETURN NIL