alguien puede probar este codigo con las versiones 99.5 y 99.71 de xHarbour, yo tengo una diferencia del doble entre ellos.
FUNCTION main()
LOCAL astruct, i, ini, ind
rddRegister( "ADS", 1 )
rddsetdefault( "ADS" )
AdsSetServerType ( 1 )
aStruct := {{"name","C",50,0},{"salary","N",10,2}}
FOR i:=0 TO 30
ind := ALLTRIM( STR(i))
FERASE("person" + ind + ".adt")
FERASE("person" + ind + ".adi")
DBCREATE( "person" + ind, aStruct )
DBUSEAREA( .T.,, "person" + ind,,.T. )
NEXT
ini := SECONDS()
DBCOMMITALL()
DBCLOSEALL()
? SECONDS() - ini
INKEY(0)
RETURN NIL