data name;
input string $30.;
cards;
张三,李四
张三,王五
张三,李四,小七
小七,毛爸
;
data comb;
set name;
n=countw(string);
do i= 1 to n-1;
do j= i+1 to n;
name1=scan(string,i,',');
name2=scan(string,j,',');
output;
name1=scan(string,j,',');
name2=scan(string,i,',');
output;
end;
end;
run;