[Harbour] dBRequest() runtime error ...?

[Shum]

Hi All,

There is an runtime error  at the line :  If (lRet := dBRequest( cTAls, Tl,
NIL, Fl ) )
Anything wrong  ?

and the hb_out.log  attached as well ...


Function _mydBRequest( cTAls, nTime )
    Local lRet:=Fl
    Local nCnt:=0
    Local olVal:=Fl
    Local nAMax:=0
    Local aAreas:={}
    Local cOAlias:=cTAls
    Do While nTime > 0
        myTlog( "Before dBRequest: " +cTAls, "mylog")          // Write to
log file
        If (lRet := dBRequest( cTAls, Tl, NIL, Fl ) )
            Exit
        Endif
        myTlog( "After dBRequest: " +cTAls, "mylog")           // Write to
log file
        aAreas := WorkSpaceList( DB_ZEROSPACE )
        nAMax  := Len(aAreas)
        cTAls  := cOAlias + "_"
        olVal  := Set(_SET_EXACT, Tl )
        myTlog( "After WoekSpaceList( DB_ZEROSPACE )", "mylog")
        For nCnt:=1 to nAMax
            If AT( cTAls, aAreas[nCnt]) > 0
                cTAls := aAreas[nCnt]
                If (lRet := dBRequest( cTAls, Tl, NIL, Fl ) )
                    Exit
                Endif
            Endif
        Next
        Set(_SET_EXACT, olVal )
        If !lRet
            cTAls := cOAlias
        Endif
        --nTime
    EndDo
Return( lRet )



Shum http://n2.nabble.com/file/n4843816/hb_out.log hb_out.log 
-- 
View this message in context: 
http://n2.nabble.com/dBRequest-runtime-error-tp4843816p4843816.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour