A user reported the following on the SF bug tracker:
http://sourceforge.net/tracker/?func=detail&atid=100681&aid=2919327&group_id=681
I don't know which Harbour version he is using or the type of problem.
Maybe it is a missing SHARE support in that dos environment
(need to run share.exe?)
Vlado wrote:
---------------------------------------------------------
Platform=dos
compiler=watcom
Func Main()
loacal aStru:={{"ID","C",10,0},{"NAME","C",30,0}}
LOCAL LNew:=.t.
LOCAL lShare:=.t.
cls
if !file("Test.dbf")
dbCreate("Test",astru)
dbUseArea(lNew,nil, "Test", nil, lShare)
index on ID to test1
use
end
alert("Top of file")
dbUseArea(lNew, nil, "Test", nil, lShare)
dbsetindex("test1")
browse()
dbCloseArea()
alert("Bottom of file")
dbUseArea(lNew, nil, "Test", nil, lShare)
dbsetindex("test1")
dbGoBottom()
browse()
dbCloseArea()
return nil
Multptform Make procedure in Vista
HBMK2 test.prg -plat=dos -comp=watcom
Program works in windows dos comand
but not work in FreeDOS, DOSBOX.
Only work to first dbCloseArea() and go to blank screen at next dbSetindex()
command.
Can samone confirm this.
thank you
Vlado
---------------------------------------------------------
Chen.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
