* assume a database is open
* assume tables: saleshist & prods exist
cYearWeeks = "200301#200302#200303"
cSQL = "select prodid,prods.name,yearweek,sold from saleshist,prods "+;
       "where yearweek=?cYearWeek"

sqlprepare(oApp.ConnectionHandle,cSQL) && does this help speed up the query?
cursorsetprop("Prepared", .t., 0)

create sql view (cViewName) remote connection (cConnName) shared as &cSQL
use (cViewName) in 0 alias myRV

alines(aWeeks,cYearWeeks,.t.,'#')
for i = 1 to alen(aWeeks)
   cYearWeek = aWeeks[i]
   * is sqlprepare useful here?
   requery("myRV")
endfor