请教数据集处理问题

shiyiming

origin:
001 A a11 a12 b11 b12 e11 e12
002 B c11 c12 f11 f12
003 B d11 d12
004 A g11 g12

wanted:
001 A a11 a12
001 A b11 b12
001 A e11 e12
002 B c11 c12
002 B f11 f12
003 B d11 d12
004 A g11 g12

不知能否有通用的解决办法？


比如记录某项反应，现在预留5次记录表格：

大家都至少有一次反应，但是有些人可能有多次反应


[color=red:21155][b:21155][size=150:21155]谢谢！[/size:21155][/b:21155][/color:21155]

shiyiming

data new(keep=id grp item1 item2);
infile cards missover;
input id $ grp $ e1 $ e2 $ e3 $ e4 $ e5 $ e6 $ ;
array e{3,2} e1--e6;
array itm(2) $3. item1 item2;
do i=1 to 3;
do j=1 to 2;
itm(j)= e{i,j};
if itm(j)='' then goto skip;
end;
output;
end;
skip:;
cards;
001 A a11 a12 b11 b12 e11 e12
002 B c11 c12 f11 f12
003 B d11 d12
004 A g11 g12
;
run;

shiyiming

[code:74e9c]
data hua;
infile cards missover;
input code$ name$ re1$ re2$ @;
   do while (re1 ne "");
       output;
           input re1$ re2$ @;
   end;
cards;
001 A a11 a12 b11 b12 e11 e12
002 B c11 c12 f11 f12
003 B d11 d12
004 A g11 g12
;
run;
proc print;run;[/code:74e9c]