The following example opens the customer
table in the testdata
database. FOR ... ENDFOR is used to create a loop in which CDX( ) is used to display the name of each structural index.
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE Customer && Open customer table
CLEAR
FOR nCount = 1 TO 254
IF !EMPTY(TAG(nCount)) && Checks for tags in the index
? CDX(nCount) && Display .CDX names
ELSE
EXIT && Exit the loop when no more tags are found
ENDIF
ENDFOR