这个用data步就能解决，多尝试

要怎么写？

很好。是不是用indexw更通用一点，字符之间用逗号分开

恩，有道理。

顺序复杂的情况好像解决不了？

例如：
A B 1
E E 2
C D 3
D A 4
E C 5

这5人都有直接或间接的亲属关系，出来的家庭号需要相同才行。

想到一个无聊的办法：
1. 让x1和x2交换，就是总有x1<x2
2. 对x1进行sort

什么意思，不太明白呢，x1和x2不是数字，没有大小关系吧。就算是数字，交换后也不一定是x1<x2吧。

大神能说得详细点吗？

试试这个

上面程序唯一的缺陷就是人名太多的时候要一一列举，可以用SQL+MACRO改进

data a(drop=t);
set a;
if x1>=x2 then do;
t=x1;x1=x2;x2=t;
end;
run;

proc sort data=a;by x1;run;

这段很精妙，是关键的一步，之后proc sort是不是也应该要 sort by x1 x2才行？
而且好像下面这情况又出问题了：
A B      A B
E E      A D
D A =>A F
E F      E E
F A      E F
去到第4行E就会被判定为新家庭了？

1. 让x1和x2交换，就是总有x1<x2

这步好像挺关键，它的具体意义是什么？

既然你问了，我就尝试写一下吧
data a;
  input g1 $ g2 $ x;
  cards;
A        B        1
B        C        2
C        D        3
E        F        4
G        F        5
;
run;

proc sort; by g1 g2; run;
data b;
  set a;
  retain str n; length str $200;
  array glst g1 g2;
  if count(str, g1, 't') = 0 and count(str, g2, 't') = 0 then do;
      n + 1;
          str = compbl(g1||g2||str);
          id = compress('0'||n);
          group = g1;output;
          group = g2;output;
  end;

  else do;
    do over glst;
      if count(str, glst, 't') = 0 then do;
            str = compbl(glst||str);
            id = compress('0'||n);
            group = glst;output;
      end;
    end;
  end;
  keep group id;
run;