% *RETURN dbclocation SELECT distinct accountid, name FROM (dbclocation+[accounts]) ORDER BY name INTO CURSOR xvendors vendorlist=[] SCAN vendorlist=vendorlist+[]+ALLTRIM(name)+[] endscan %>