>Nope. There is no any Sozluk table in DataSession. Also, i check the DataSession runtime, and i can see sozluk is closed. Anyway i got error.

try:

#define CRLF CHR(13)+CHR(10)
LOCAL lnSessions, laSessions, lcMsg
LOCAL lnOldDS, lnFor, lnFor2
LOCAL lnUsedF, laUsedF
DO WHILE Used('sozluk')
   USE in 'sozluk'
ENDDO
TRY
  USE sozluk Exclusive In 0
CATCH TO oErr
    lnSessions = ASESSIONS(laSessions)
    lcMsg      = "Number of sessions " + TRANSFORM(lnSessions)+CRLF
    lnOldDS    = SET("Datasession")
    FOR lnFor  = 1 TO m.lnSessions
        SET DATASESSION TO laSessions[lnFor]
        lnUsedF = AUSED(laUsedF,laSessions[lnFor])
        FOR lnFor2 = 1 TO lnUsedF
            IF [SOZLUK] $ UPPER(laUsedF[lnFor2,1])  OR;
               [SOZLUK] $ UPPER(laUsedF[lnFor2,2])
               lcMsg = lcMsg + "   "+TRANSFORM(laSessions[lnFor])+[. Select ]+TRANSFORM(laUsedF[lnFor2,1])+;
                                                                  [ ALIAS ]+TRANSFORM(laUsedF[lnFor2,2])+CRLF
            ENDIF
        NEXT
        lcMsg = lcMsg + CRLF + CRLF
    NEXT
    lcMsg = lcMsg + TRANSFORM(oErr.ErrorNo) + CRLF + oErr.Message
    SET DATASESSION TO old_ds
    STRTOFILE(lcMsg,"Tte.TXT")
    MODIFY FILE Tte.txt
    ERASE Tte.Txt
ENDTRY
SELECT Sozluk

Keep in mind that I write this directly here so you could have some syntax errors.