CLEAR
CLEAR ALL
SET EXACT ON
SET TALK off
SET DEFAULT TO c:\global
LOCAL nCount, gnDbcnumber, gaDatabase[1]
 
gnDbcnumber = ADIR(gaDatabase, '*.DBF') && Create array
FOR nCount = 1 TO gnDbcnumber           && Loop for number of databases
    USE (gaDatabase[nCount, 1]) IN 0
ENDFOR