|
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 ;
| 
