* В следующем примере происходит создание и заполнение массива,
* затем в нем ищется имя компании, если его не удается найти, оно
* добавляется в массив.

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE customer && Open customer table

SELECT company FROM customer ;

WHERE country = 'Germany' ;

INTO ARRAY gaCompanies

gnCount = _TALLY

gcName = 'Seven Seas Imports'

CLEAR

DISPLAY MEMORY LIKE gaCompanies

IF ASCAN(gaCompanies, gcName) = 0 && Search for company

*** Company not found-add it ***

DIMENSION gaCompanies[gnCount+1,1]

= AINS(gaCompanies, gnCount+1)

gaCompanies[gnCount+1] = gcName

ENDIF

DISPLAY MEMORY LIKE gaCompanies