Imasasor 发表于 2012-10-18 12:28 
非常谢谢。
下面一段也可以,别人告诉的
%macro a(y);
%do i=1 %to 3;
data h.&y&i;
informat date1 ddmmyy10.;
set hb10x.&y&i;
%if &i=1 %then date1='10apr2010'd;;
%if &i=2 %then date1='20apr2010'd;;
%if &i=3 %then date1='30apr2010'd;;
format date1 ddmmyy10.;
%end;
%mend;
%a(Apr)