DATA A;A='1';RUN;
%MACRO M_A();DATA B;SET %DO I=1 %TO 10;A%END;;RUN;%MEND;
%M_A();
PROC PRINT DATA=B;RUN;