请参考如下程序，希望可以有帮助。如果有100个variables, 可以修改相应参数。
data test1;
input x1-x3;
datalines;
1 2 3
2 4 4
3 3 5
;
run;

proc means data=test1;
var x1-x3;
output out=fmedian
median(x1-x3)=xm1-xm3;
run;

data test2;
if _n_=1 then set fmedian;
set test1;
array xvalue{3} x1-x3;
array mvalue{3} xm1-xm3;
array tvalue{3} t1-t3;

do i=1 to 3;
   if xvalue{i} >= mvalue{i} then tvalue{i}=1;
   else tvalue{i}=0;        
end;
keep t1-t3;
run;

帮顶

THX~~~

data orignial;
input x1 x2 x3;
datalines
1 2 3
2 4 4
3 3 5
;
run;

proc means data=test median;
var x1-x3;
output out=fmedian
median=
/autoname;
run;

data final (keep= x1 x2 x3);
set original;
if _n_=1 then set fmedian;
x1=(x1>x1_Median);
x2=(x2>x2_Median);
x3=(x3>x3_Median);
run;

或者把Median的值存在Macro variable里就可以引用。

受用