data a;
input x1-x4 ;
cards;
1 2 4 5
2 1 6 3
5 4 3 4
1 3 2 6
;
run;
proc iml;
use a;
read all into AA;
B=T(AA);
rowNum=nrow(B);
do i=1 to rowNum;
row=B[,i];
call sort(row,{1},{1});
AA[,i]=row;
rowNum=rowNum+1;
end;
D=T(AA);
create work.d from D;
append from D;
quit;