data   learn_upper;
input    Name
           DOB
           abc
           ;
datalines;
1 23 3
2 5 3
5 6 3
;
run;

data fraction_data;
set learn_upper;
array sq(*)  sq1-sq3;
do i=1 to 3;
    do j=1 to 3;
      sq[j]=sq[j];
    end;
    output;
end;
drop i j;
run;

麻烦大家修改一下，就是通过二维数组的方式表示原来三个向量