how to print or display the indexes of a certain table

[suha]

please if there is a way to print or display the indexes of an existing table .

thanks,
suha [sig][/sig]

 

[dgrewe]

Use Customer.dbf
to screen - Display Status
to printer - list status to print
to a file - list status to c:\status.txt

to play with inside an arry for a program
*/***************************************************************************
*/Program : GETKEYNO
*/System : library
*/Purpose : returns an array of tag names from a database
*/Syntax : NUMBER=getkeyno(alias)
*/Returns : Number - integer - the number of tags on the database
*/Parameter : alias - character - the database alias name
*/Defaults : alias=alias()
*/Requires : an open database
*/Changes : nothing
*/Calls :
*/Version : 1.0
*/Dated : 11/07/97
*/Written By: David W. Grewe
*/***************************************************************************
*& type of prg :
*/***************************************************************************
*/ Record Of Change
*/
*/***************************************************************************
parameter pcAlias
if parameter() < 1 or type(&quot;pcAlias&quot <> &quot;C&quot;
pcAlias = alias()
endif
*
if type(&quot;gaArray&quot = &quot;U&quot;
release array gaArray
public gaArray
dimension gaArray(10 , 2)
endif
*
for lnKeyNo = 1 to 128
lcStr = key(lnKeyNo)
if empty(lcStr)
lnKeyNo = lnKeyNo - 1
exit
endif
endfor
*
dimension gaArray(lnKeyNo , 2)
for x = 1 to lnKeyNo
gaArray[x , 1] = key(x)
gaArray[x , 2] = tag(x)
endfor
*
release lcStr
return lnKeyNo
[sig]<p>David W. Grewe<br><a href=mailtoave@internationalbid.net>Dave@internationalbid.net</a><br>[/sig]