/*产生测试数据：假设数据变量名，没有规律可以先重命名，33是数据变量的个数*/
data test;
retain sample;
array medn(33);
do i=1 to 14;
   if i<10 then
      sample='ysp30'||compress(i);
   else
      sample='ysp3'||compress(i);
   do j=1 to 33;
      medn(j)=ranuni(0);
   end;
   output;
end;
drop i j;
run;
/*求每个变量的均值和标准差*/
proc means data=test mean std;
output out=testmeans;
run;
data testmean;
set testmeans;
if _stat_="MEAN";
RUN;
data teststd;
set testmeans;
if _stat_="STD";
RUN;
/*将标准差和均值合并到源数据中*/
data testall;
set testmean teststd test;
run;
/*计算每个(变量的值-均值)/标准差*/
data result;
set testall;
array mednmean(33) ;
array mednstd(33);
array medn(33);
retain mednmean mednstd;
if _n_=1 then
   do i=1 to 33;
      mednmean(i)=medn(i);
   end;
else if _n_=2 then
   do i=1 to 33;
      mednstd(i)=medn(i);
   end;
else
   do i=1 to 33;
      medn(i)=(medn(i)-mednmean(i))/mednstd(i);
   end;
run;
/*删除多余变量和观测值*/
data result;
retain sample;
set result;
keep sample medn1-medn33;
if _stat_="MEAN" then delete;
if _stat_="STD" then delete;
run;

/*产生测试数据：假设数据变量名，没有规律可以先重命名，33是数据变量的个数*/
data test;
retain sample;
array medn(33);
do i=1 to 14;
   if i<10 then
      sample='ysp30'||compress(i);
   else
      sample='ysp3'||compress(i);
   do j=1 to 33;
      medn(j)=ranuni(0);
   end;
   output;
end;
drop i j;
run;
/*求每个变量的均值和标准差*/
proc means data=test mean std;
output out=testmeans;
run;
data testmean;
set testmeans;
if _stat_="MEAN";
RUN;
data teststd;
set testmeans;
if _stat_="STD";
RUN;
/*将标准差和均值合并到源数据中*/
data testall;
set testmean teststd test;
run;
/*计算每个(变量的值-均值)/标准差*/
data result;
set testall;
array mednmean(33) ;
array mednstd(33);
array medn(33);
retain mednmean mednstd;
if _n_=1 then
   do i=1 to 33;
      mednmean(i)=medn(i);
   end;
else if _n_=2 then
   do i=1 to 33;
      mednstd(i)=medn(i);
   end;
else
   do i=1 to 33;
      medn(i)=(medn(i)-mednmean(i))/mednstd(i);
   end;
run;
/*删除多余变量和观测值*/
data result;
retain sample;
set result;
keep sample medn1-medn33;
if _stat_="MEAN" then delete;
if _stat_="STD" then delete;
run;

/*产生测试数据：假设数据变量名，没有规律可以先重命名，33是数据变量的个数*/
data test;
retain sample;
array medn(33);
do i=1 to 14;
   if i<10 then
      sample='ysp30'||compress(i);
   else
      sample='ysp3'||compress(i);
   do j=1 to 33;
      medn(j)=ranuni(0);
   end;
   output;
end;
drop i j;
run;
/*求每个变量的均值和标准差*/
proc means data=test mean std;
output out=testmeans;
run;
data testmean;
set testmeans;
if _stat_="MEAN";
RUN;
data teststd;
set testmeans;
if _stat_="STD";
RUN;
/*将标准差和均值合并到源数据中*/
data testall;
set testmean teststd test;
run;
/*计算每个(变量的值-均值)/标准差*/
data result;
set testall;
array mednmean(33) ;
array mednstd(33);
array medn(33);
retain mednmean mednstd;
if _n_=1 then
   do i=1 to 33;
      mednmean(i)=medn(i);
   end;
else if _n_=2 then
   do i=1 to 33;
      mednstd(i)=medn(i);
   end;
else
   do i=1 to 33;
      medn(i)=(medn(i)-mednmean(i))/mednstd(i);
   end;
run;
/*删除多余变量和观测值*/
data result;
retain sample;
set result;
keep sample medn1-medn33;
if _stat_="MEAN" then delete;
if _stat_="STD" then delete;
run;