Thanks for the tip, Vlad. It is somewhat unnerving though to see more than one dbc with the same name open. Before opening another dbc I'll scan through the array created with adatabases() and close any open dbc's with the same name that I want to open, then I'm certain I'm working with the one I want.

Randy

Example:
local array laDbc[1]
local lnPos
store 0 to laDbc,lnPos
if adatabases(laDbc)>0
do while .t.
lnPos=ascan(laDbc,'CSA')
if lnPos>0
set database to csa
close data
=adel(laDbc,asubscript(laDbc,lnPos,1))
else
exit
endif
enddo
endif