%macro randnum1(dist,x);
x1 = uniform(123456789);
x2 = uniform(123456789);

%goto &dist;
%l0:
x = 0;
%return;
%l1 :
x = 1;
%return;
%l2:
x = 2;
%return;

%next:
%mend randnum1 ;
data temp;
%randnum1(l3,x);
drop x1 x2;
run;
proc print; run;