CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE customer && Opens Customer table
CLEAR
FOR gnCount = 1 TO FCOUNT( ) && Loop for number of fields
? FIELD(gnCount) && Display each field
NEXT
?
? 'Number of fields: ' + ALLTRIM(STR(gnCount -1))