proc iml;

x = {1,0,3,2,0,3}; /* 6 × 1 ベクトル */
A = J(6,1,1); /* 6 × 1ですべての要素が1の行列 */
reg_data = A || x; /* Aとxを横に連結 */

create DATA2 var {A x}; /* データセットを作る */
append from reg_data;       /*　どの行列からデータを作るか */
close DATA2; /* データセットを閉じる */

quit;

proc print data=DATA2;
run;