SAS数据集如何将为负数的部分，变为正数

SAS数据集如何将为负数的部分，变为正数
B1   B2     B3......（变量）
obs1  2     0.5     9
obs2  1.3   -0.2   -10
obs3  -0.4   -5     -2

方法1:
data b;                                                                                                                                 
set a;                                                                                                                                  
b1=abs(b1);                                                                                                                             
b2=abs(b2);                                                                                                                             
b3=abs(b3);                                                                                                                             
run;

改进优化:
data have;
input obs$ B1 B2 B3;
cards;
obs1  2     0.5     9
obs2  1.3   -0.2   -10
obs3  -0.4   -5     -2

;

data want(drop=i);
set have;
array b(*) _numeric_;   /*_numeric_代表所有数值型变量的列表，用_character_代表所有字符型变量的列表，用_all_代表所有变量的列表*/
   do i=1 to dim(b);    /*dim求数组的个数,dim(b)=3*/
      b(i)=abs(b(i));
   end;
run;