%macro bl(var);
proc sql noprint;
select name into :keeplist separated by ' '
from sashelp.vcolumn
where libname='WORK' and memname='A' and name like '&var';
quit;
%mend bl;
%macro bl(var);
proc sql ;
select name into :keeplist separated by ' '
from sashelp.vcolumn
where libname='WORK' and memname='A' and name like "&var";
quit;
%mend bl;
%bl(%nrstr(a%_1));
proc means n nmiss mean;
var &keeplist;
title "均数";
run;