SELECT tempxxx
fl_execute = .f.
IF RECCOUNT() > 0
   lcSelectSQL = "SELECT DISTINCT hier.account_code as account " + ;
                        "FROM h_node hnode, hierarchy hier " + ;
                        "WHERE hier.hcode  = hnode.hcode AND ("
  SCAN FOR INLIST(tempxxx.hcode, 55555, 66666)
       lcSelectSQL = lcSelectSQL + IIF(fl_execute, " OR ","") + "hier.hcode = '" + tempxxx.hcode + "'"
       fl_execute = .t.
  ENDSCAN
  IF fl_execute
     lcSelectSQL = lcSelectSQL + ")"
     lnExec = SQLEXEC(lnconnect,lcSelectSql,'temptodelete')
   ENDIF
ENDIF
=sqldisconnect(lnconnect)

IF fl_execute
   SELECT temptodelete
   BROWSE
ENDIF