关于sql的一个程序，请高手们帮帮忙。

data a;
input code1 code2 x;
datalines;
      1             1       5
      3             2       7
      4             3       6
      6             4       9
      7             5      10
      9             6      12
      .               7       11
       .              8       12
        .             9       13
         .           10       11
;
run;

proc sort data=a out=code1 (keep=code1 where=(code1 ne .)); by code1; run;


data b;
set a;
do i=1 to nobs;
set code1 nobs=nobs point=i;
if code1=code2 then output;
end;

run;