请帮忙看一下关于catx的code

shiyiming

有如下data,想用catx把x1,x2,x3的值连在一起,以一个空格隔开.
data a;
input id $ x1 $ x2 $ x3 $;
cards;
a w10     y8     z3222
b ss01 y2400  z100
...
;
data b;
set a;
array d(3) $ x1-x3;
do i=1 to 3;
list=catx(' ',list,d(i));
end;
run;

想得到:
id x1 x2 x3 list
a w10     y8     z3222 w10 y8 z3222
b ss01 y2400  z100 ss01 y2400 z100

结果发现, list=catx(' ',list,d(i));运行出错.
请高手指教如何修改.

谢谢!!!

shiyiming

[code:33zsluph]data b;
    length list $20;
    set a;
    array d(3) $ x1-x3;
    list=catx(' ',of d(*));
run;[/code:33zsluph]

shiyiming

data a;
input id $ x1 $ x2 $ x3 $;
cards;
a w10 y8 z3222
b ss01 y2400 z100
...
;
data b;
set a;
list=catx(' ',x1,x2,x3);
run;