%macro chi;
proc sql noprint;
select name into: varlist separated by " "
from dictionary.columns
where libname='WORK' and memname='A' and name eqt 'N';
quit;

%let i=1;
%do %until(%scan(&varlist,&i)=%str());
proc freq;
weight %scan(&varlist,&i);
tables r*c/chisq;
run;
%let i=%eval(&i+1);
%end;
%mend;

%chi

data _null_;
   set sashelp.vcolumn;
   where libname="WORK" and memname="A" and upcase(name)=:"N";
   call execute("proc freq; weight "||strip(name)||"; tables r*c/chisq; run;");
run;

wwang111，谢谢，但是你的varlist这里指的是什么变量呢？

pobel的程序就不用提了，每次都是经典，非常的感谢

All the solutions are so good.
Honestly the question is fairly easy to give a solution. But here to this question I have some comments. In my opinion, the key of doing such job is of how fast you can do it. without cosidering that, the simulation will become ugly. Sometimes, you may think of that: don't use macro to repeat algorithm but to repeat text. What i mean is, 1*1000 = 1+1+...+1 (1000). Using macro to loop, sometimes is simliar to adding the 1000's 1 but may hinder you from getting a better way to achieve the goal.
Please read it. JingJu

http://blog.sina.com.cn/s/blog_a3a926360101h2x8.html