data crackman;
do i=1 to 100;
x=ranuni(1);
output;
end;
run;
data _null_;
set crackman;
call symput("n"||left(i),i);
run;
%macro crackman(obs);
data n&obs.;
set crackman;
if _n_=&&n&obs.;
run;
%mend crackman;
%crackman(1);
%crackman(2);
%crackman(3);