Program:
proc main()
set alternate to test.txt
set alternate on
dbCreate( "_tst", { { "F","C",10,0 } } )
use _tst alias "tst1" new shared
dbRelease()
use _tst alias "tst1" new shared
WorkSpaceEval( {|| doTest() } )
return
proc doTest()
local i, n
n := select()
? "Current workarea: ", ltrim( str( n ) ), "alias:", alias(), ;
"(verify:" + ltrim( str( select( alias() ) ) ) + ")"
? "All active workareas in thread workspace:"
for i := 1 to 255
select( i )
if used()
? " workarea:", ltrim( str( i ) ), "alias:", alias()
endif
next
select( n )
return
Output:
Current workarea: 1 alias: TST1 (verify:1)
All active workareas in thread workspace:
workarea: 1 alias: TST1
Current workarea: 2 alias: (verify:0)
All active workareas in thread workspace:
workarea: 1 alias: TST1
Current workarea: 7 alias: (verify:0)
All active workareas in thread workspace:
workarea: 1 alias: TST1
Current workarea: 183 alias: (verify:0)
All active workareas in thread workspace:
workarea: 1 alias: TST1
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
