function listindexes(cDBFname)

local t

t=new tabledef()

t.tablename=cDBFname

t.load()

set print on

? "Tablename:"+cDBFname

? "Indexes:"

for n=1 to t.indexes.size

? "--------------------------------"

? "Index number:"

?? str(n,2,0," ") at 22

? "index name:"

?? t.indexes[n].indexname at 22

? "index expression:"

?? t.indexes[n].expression at 22

? "index FOR expression:"

?? t.indexes[n].forexpression at 22

? "index descending:"

?? t.indexes[n].descending at 22

? "index unique:"

?? t.indexes[n].unique at 22

? "--------------------------------"

next

set print off

set print to