Using slSetRelNamedLocks

[Fim]

Is there any way to find out what locks I have made with slSetRelNamedLocks?
/Fim W.

[cj]

FUNCTION GetLockNames AS STRING
 'connect and open database before call 
 LOCAL s1,s2 AS STRING, x AS LONG
 s1 = slGetStatus(1)
 IF LEN(s1) = 0 THEN EXIT FUNCTION
 REPLACE $VT WITH "," IN s1
 REPLACE $BS WITH "," IN s1
 FOR x = 2 TO PARSECOUNT(s1) STEP 8
  s2 = s2 + PARSE$(s1,x) + ","
 NEXT
 FUNCTION = LEFT$(s2,-1)
END FUNCTION

[Fim]

Many thanks. I should have read the manual better.
/Fim W.

[Fim]

How about this in SQlitening.bas

[Fim]

Thanks for the advice and instructions. But I have decided to go another way to solve my problem, and it has gone well