data ex;
infile cards missover;
input city $ field  $ module $    col1 $ col2 $ col3 $ col4 $;
cards;
上海  宝山  大华板块         7号线    737,738  11号线    58,78
上海  嘉定  嘉定新城板块    3号线      嘉环二线 11号线
;
run;


data ex1;
set ex;
array a(*) col1--col4;
length traffic $100;
do i=1 to dim(a);
if i=1 then traffic=a(1);
else if ^missing(a(i)) then
traffic=trim(traffic)||','||a(i);
end;
drop i;
run;

data ex;
infile cards missover;
input city $ field $ module $  traffic1 $   traffic2 $;
cards;
上海  宝山  大华板块         7号线    737,738
上海  宝山  大华板块          11号线    58,78
上海  嘉定  嘉定新城板块    3号线      嘉环二线
上海  嘉定  嘉定新城板块     11号线   
;
run;

data _null_;
if _n_=1 then do;
declare hash h();
h.definekey('city','field','module');
h.definedata('city','field','module','traffic');
h.definedone();
end;
length traffic  tmp $100;
set ex end=done;
if missing(traffic1) then tmp=traffic2;
else if missing(traffic2) then tmp=traffic1;
else tmp=traffic1||','||traffic2;
if h.find() then do;
traffic=tmp;
h.add();
end;
else do;
traffic=trim(traffic)||','||tmp;
h.replace();
end;
if done then h.output(dataset:'ex1');
run;

小弟有一sas问题请教各位sas达人（可能要用marco）：
数据第一步已经变成如下的形式：

城市  区域       板块          规交1     规交2      规交3     规交4
上海  宝山  大华板块         7号线    737,738  11号线    58,78
上海  嘉定  嘉定新城板块    3号线      嘉环二线 11号线
现在要变成如下形式：
城市  区域       板块                               规交1      
上海  宝山  大华板块              7号线,737,738,11号线,58,78
上海  嘉定  嘉定新城板块         3号线,嘉环二线,11号线

我知道trim||,||, 可以将变量连起来，但是由于变量有几百个，所以连起来要写个循环。

数据第一步已经变成如下的形式：

城市  区域       板块          规交1     规交2      规交3     规交4
上海  宝山  大华板块         7号线    737,738  11号线    58,78
上海  嘉定  嘉定新城板块    3号线      嘉环二线 11号线
现在要变成如下形式：
城市  区域       板块                               规交1      
上海  宝山  大华板块              7号线,737,738,11号线,58,78
上海  嘉定  嘉定新城板块         3号线,嘉环二线,11号线

我知道trim||,||, 可以将变量连起来，但是由于变量有几百个，所以连起来要写个循环。

能不能直接写个循环呢，不要用hash表