I use the following procedure to build/drop/pack and recreate tables in my database. I have no problem building, packing recreating, however whan I try to drop the table I get an "invalid table name" message. Why can I create the table, but not drop it. Thanks.
do case
case option = 1
thisform.pageframe1.page1.statusline.caption = "Building Feesched"
thisform.refresh()
if (file("./data/feesched.dbf"
)
else
create table ./data/feesched (fee_key c(8), ;
fee_payor c(9), fee_pos c(3), ;
fee_approved Y(8), fee_approv_per n(4.2), ;
fee_exp_pay n(8.2), fee_copay_per n(4.2), ;
fee_copay_amt Y(8), fee_inswarn c(1), ;
fee_code c(8), fee_exppay Y(8), ;
fee_istax c(1), fee_tax_per n(6.4), ;
fee_effdate D, fee_specnum c(15) )
use feesched exclusive
if isexclusive()
index on fee_key tag fee_key1
index on fee_key + fee_payor + fee_pos tag fee_key2
else
endif
endif
case option =2
thisform.pageframe1.page1.statusline.caption = "Recreating FEESCHED"
thisform.refresh()
use feesched exclusive
if isexclusive()
reindex
else
messagebox("File FEESCHED not opened exclusive",16)
endif
case option = 3
thisform.pageframe1.page1.statusline.caption = "Packing FEESCHED"
thisform.refresh()
use feesched exclusive
if isexclusive()
pack
else
messagebox("File FEESCHED not opened exclusive",16)
endif
case option = 4
thisform.pageframe1.page1.statusline.caption = "Dropping FEESCHED"
drop table ./data/feesched
endcase
if used("feesched"
use in feesched
endif
do case
case option = 1
thisform.pageframe1.page1.statusline.caption = "Building Feesched"
thisform.refresh()
if (file("./data/feesched.dbf"
else
create table ./data/feesched (fee_key c(8), ;
fee_payor c(9), fee_pos c(3), ;
fee_approved Y(8), fee_approv_per n(4.2), ;
fee_exp_pay n(8.2), fee_copay_per n(4.2), ;
fee_copay_amt Y(8), fee_inswarn c(1), ;
fee_code c(8), fee_exppay Y(8), ;
fee_istax c(1), fee_tax_per n(6.4), ;
fee_effdate D, fee_specnum c(15) )
use feesched exclusive
if isexclusive()
index on fee_key tag fee_key1
index on fee_key + fee_payor + fee_pos tag fee_key2
else
endif
endif
case option =2
thisform.pageframe1.page1.statusline.caption = "Recreating FEESCHED"
thisform.refresh()
use feesched exclusive
if isexclusive()
reindex
else
messagebox("File FEESCHED not opened exclusive",16)
endif
case option = 3
thisform.pageframe1.page1.statusline.caption = "Packing FEESCHED"
thisform.refresh()
use feesched exclusive
if isexclusive()
pack
else
messagebox("File FEESCHED not opened exclusive",16)
endif
case option = 4
thisform.pageframe1.page1.statusline.caption = "Dropping FEESCHED"
drop table ./data/feesched
endcase
if used("feesched"
use in feesched
endif