谢谢答复，可是这个代码是根据结果倒推的。。。。现实情况下，是没有结果的。。。。。
还是谢谢你~~~

或许没有描述清楚，这其实是一个网状的问题。
纠结了2天的SAS，没能解决可能就在于SAS对于网状数据的处理能力问题。
目前，已找到解决方法，用UCINET~
感兴趣的可以去看一下。
不过，UCINET是采用矩阵输入的~不知SAS用矩阵可不可行~
高手们可以继续帮忙扫下“盲”~

类似的搜索都可以用hash来实现，就是做之前需要预判hash的大小，以免内存不够

恩，谢了~学习了Hash~

研究了一下，这段代码的结果会随着数据排序的不同有不同的结果，因为在Grp+1这条上，没有判断是否属于现有群组了...

不知能不能再指导一下，如何判断咩？

不是很理解，grp只是一个自增组号～

I had met such problems in my business, and I would like to share my way to handlt it.

data test01;
input a b;
cards;
1 9
4 3
3 2
5 6
7 8
8 5
7 6
9 3
;run;

data test02(drop = t);
        set test01;
        if b > a then output;
        t = a;
        a = b;
        b = t;
        if b > a then output;
run;
proc sort data = test02;
        by a b;
run;
data test03;
        set test01(keep = a rename=(a = ab))
                test01(keep = b rename=(b = ab));
run;
proc sort data = test03 nodupkey;
        by ab;
run;

%macro test_macro();
%let grp = 0;
%do flag1 = 1 %to 0 %by -1;
        %let grp = %eval(&grp.+1);
        %do flag2 = 1 %to 0 %by -1;
                %let ds_flag = %sysfunc(open(temp01,is));
                %if &ds_flag. = 0 %then %do;   
                        data _null_;
                                if _n_ = 1 then do;
                                        dcl hash h();
                                        h.definekey("ab");
                                        h.definedata("ab");
                                        h.definedone();
                                end;
                                set test02 end=eof;
                                if _n_ = 1 then do;
                                        ab = a; h.add();
                                        ab = b; h.add();
                                end;else do;
                                        if h.find(key:a) = 0 and h.find(key:b) then do;
                                                ab = b; h.add();
                                        end;else if h.find(key:a) and h.find(key:b) = 0 then do;
                                                ab = a; h.add();
                                        end;
                                end;
                                if eof then h.output(dataset:"temp01");
                        run;
            %end;   
            %else %do;   
                %let ds_close = %sysfunc(close(&ds_flag.));
                        data _null_;
                                if 0 then set temp01;
                                if _n_ = 1 then do;
                                        dcl hash h(dataset:"temp01");
                                        h.definekey("ab");
                                        h.definedone();
                                end;
                                set test02 end=eof;
                                if h.find(key:a) = 0 and h.find(key:b) then do;
                                        ab = b; h.add();
                                end;else if h.find(key:a) and h.find(key:b) = 0 then do;
                                        ab = a; h.add();
                                end;
                                if eof then h.output(dataset:"temp02");
                        run;
                        proc sql noprint;
                                select count(*) into:t1 from temp01;
                                select count(*) into:t2 from temp02;
                        quit;
                        data temp01; set temp02; run;
                        %if &t1. = &t2. %then %let flag2 = -10;
                        %else %let flag2 = 1;
                %end;
        %end;
        data temp01; set temp01; grp = &grp.; run;
        proc append base = temp03 data = temp01; run;
        data test02;
                if 0 then set temp03;
                if _n_ = 1 then do;
                        dcl hash h(dataset:"temp03");
                        h.definekey("ab");
                        h.definedone();
                end;
                set test02;
                if h.find(key:a) and h.find(key:b);
        run;
        proc sql noprint;
                select count(*) into:tp3 from temp03;
                select count(*) into:tt3 from test03;
                drop table temp01;
                drop table temp02;
        quit;
        %if &tp3. = &tt3. %then %let flag1 = -10;
        %else %let flag1 = 1;
%end;
%mend;
%test_macro();

你把13楼test02这一部分加到hash前面应该就可以了~

不对，加了也没用。。。碰到
1 8
2 8
3 8
4 8
这样的就不行了。。。

提供一个不用hash的code，你试试看有没有bug~

之后rank一下G就可以了~

马尔科夫兄，帮我看下16楼的程序啊，谢谢~~

最后再补充点后续处理的过程，我这里使用比较麻烦，所以这个就没有运行验证，不过只要前面的对了，这段程序并不重要~

macro？！
那好吧....

先试试看，每次都在运行中发现新的问题.....

问题可简单描述为：
有一组8人，两两相连，假设有连接的一群人为一个圈子的话，怎么从以下的数据中划分这两个圈子？
有数据如下：
A        B
1        2
2        1
2        3
3        2
3        4
4        3
5        6
5        8
6        5
6        7
7        6
8        5

这个数据中，结果应为“1-4为一个群组（编号为1），5-8为一个群组（编号为2）”。现在如果只知道上面这个数据，怎么把这两拨人分开来呢？

如果发现分类不够彻底的话可以增加i 的循环次数~ 有其他问题请再回复~

你的代码的确是分出2组了，但组号是1和5。应该是组号最初赋值的问题。
还有就是  if first.b then change=G;条件中得first.b是什么意思？

你把我19楼的代码在其后运行一下，就分为1和2两组了。
主要是你改变一下a里的排序规则等试试看其他情况会不会有bug。
first.b是指根据b排序后的组类第一项，具体可以查看documentation，这个很好理解的~