Here is my test code for find
if file exist("customer.dat") = 0
DFS Create 3, "customer.dat" ,0
KFS Create 2, "cus_name.KFS", 30, 0, 0
DFS Add Field 3, "string 30 as f_name"
DFS Add Field 3, "string 30 as l_name"
DFS Add Field 3, "integer as acct"
DFS Finish 3
ADD_Customer("Will","Schramm",534312)
ADD_Customer("Steve","Davis",534311)
ADD_Customer("Molly","Schramm",534313)
ADD_Customer("David","Green",534314)
ADD_Customer("Dreason","Faulk",534315)
ADD_Customer("Greg","Schramm",534318)
ADD_Customer("Donald","Sears",534319)
else
DFS Open 3,"customer.dat"
KFS Open 2,"cus_name.KFS"
endif
KFS Reset 2
record = KFS Find(2,"Schramm")
if record > 0
display(record)
else
print "Nothing found or error"
print
endif
for x = 1 to 6
`record = KFS Next(2)
`record = KFS Previous(2)
record = KFS Find(2,"Schramm")
if record > 0
display(record)
else
print "Nothing found or error"
print
endif
next x
DFS Close 3
KFS Close 2
wait key
END
function ADD_Customer(fname$,lname$,qty)
record = DFS Add(3)
DFS Put 3, "f_name", fname$
DFS Put 3, "l_name", lname$
DFS Put 3, "acct", qty
DFS Save 3, record
KFS Add 2,lname$,record
endfunction
function display(record)
DFS Load 3, record
fname$ = DFS Get$(3,"f_name")
lname$ = DFS Get$(3,"l_name")
acct = DFS Get(3, "acct")
Print "Name : "+lname$+", "+fname$
print "Account : "+STR$(acct)
print
endfunction
I tried it with KFS Create 2, "cus_name.KFS", 30, 1, 0 and KFS Create 2, "cus_name.KFS", 30, 0, 0 if I put 1 in the unique space the KFS file ends up with only the Sears record in it
not sure but seems your help files refence files that are missing index and such also seems that when yo hit F1 on your commands it takes yo to the DBPro index.html help page
Thanks again
William
