Yhis prg:
proc main()
> dbCreate( "_tst", { { "F","C",10,0 } } )
> use _tst alias "tst1" new shared
> dbRelease()
> use _tst alias "tst1" new shared
> dbRelease()
> aeval( WorkSpaceList( 2 ), {|s, i| qout( i, s ) } )
> wait
> return
Aborts with this runtime error:
------------------------------------------------------------------------------
ERROR LOG of "C:\experimentos\test\Test.exe" Date: 06/17/2009 11:50:12
Xbase++ version : Xbase++ (R) Version 1.90.331
Operating system : Windows XP 05.01 Build 02600 Service Pack 2
------------------------------------------------------------------------------
oError:args :
oError:canDefault : Y
oError:canRetry : N
oError:canSubstitute: N
oError:cargo : NIL
oError:description : Alias already in use
oError:filename :
oError:genCode : 67
oError:operation : DbRelease
oError:osCode : 0
oError:severity : 2
oError:subCode : 8071
oError:subSystem : BASE
oError:thread : 1
oError:tries : 0
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Called from MAIN(6)
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
