Date:         Wed, 6 Aug 2008 14:41:21 -0700
Reply-To:     Patrick <patrick.matter@GMX.CH>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Patrick <patrick.matter@GMX.CH>
Organization: http://groups.google.com
Subject:      Re: hundreds of variables, which variables have values over 1500
Comments: To: sas-l@uga.edu
Content-Type: text/plain; charset=ISO-8859-1

May be something in this direction:

data have;
  array myvars {10};
  do i=1 to dim(myvars);
    myvars{i}=ceil(ranuni(0)*3000);
    output;
  end;
run;

data VarOver1500(keep=Varname);
  set have;
  length varname $ 32;
  array check {*} _numeric_;
  do i=1 to dim(check);
    if check{i}>1500 then
    do;
      Varname= vname(check{i});
      put check{i}=;
    end;
  end;
run;

proc sql noprint;
  select distinct varname into :VarnamesOver1500 separated by ' '
  from VarOver1500;
quit;

%put VarnamesOver1500 =&VarnamesOver1500 ;