%macro dw(word);
%let i=1;
data out;
%do %while (%left(%scan(&word.,&i.)) ne %nrbquote(stop));
%let var=%scan(&word.,&i.);
%put &var.;
out="&var";
output;
%let i=%eval(&i.+1);
%put &i.;
%end;
run;
%mend dw;
%dw(%str(test1,test2,test3));
这是我在书本上摘录的一段程序，解析太简单，看起来太不懂，求解释啊，为什么运行的时候是无限运行下去呢，都不停止啊~~
求大神帮忙，多谢，您略微指点一二，对我都是很大的收获，多谢多谢~~~~