不好意思，请看一下最后的要求，那只是个例子，我的数据库有800个变量，而且变量名有长有短，不可能全部列不出来，否则就太麻烦了，还有我只要把红色的部分弄出来，不要整条记录！

data result(drop=i);
   set c;
   by id notsorted;
   if first.id then i=0;
   i+1;
   if last.id and i=1 then delete;
   if x1=. or x2=. or x3=. then delete;
run;

这个程序其实我已经做了，现在其实我手上就是只有多条记录的库，但实际上我只是想在这个库中把变异找出，其实不要整条记录，因为变量有800个，所以我想可能会用到循环，可是我不知道怎么写这个程序，就是以记录号id为基础，对每个记录号的所有记录的所有变量进行一一比较，从中把不一样的找出来。不知道可行不可行？

data a;
 input id x1 x2 @@;
cards;
1 11 12
2 21 22
4 41 42
4 411 422
5 51 52
;

data b; input id x3 @@;
cards;
1 13 3 33 4 43 5 53 5 533 5 5333
;
run;

data c;
merge a b;
by id;
run;

proc sort data=c;
     by id;
run;

data d;
     set c;
  by id;
  if first.id and last.id then delete;
run;

proc transpose data=d out=e(rename=(_name_=var));
     by id;
run;

data d1;
     set d;
  by id;
  if first.id then n=1;
  else n+1;
  if last.id;
  keep id n;
run;

data temp;
     merge e d1;
  by id;
run;

options mprint symbolgen mlogic;
%macro compare;
data f;
     merge e d1;
  by id;
run;

data g;
     set f end=last;
  call symput('num'||left(_n_),trim(left(n)));
  if last then call symput("tot",left(_n_));
run;
data h;
     set g;
  %do t=1 %to &tot;
      if _n_=&t then do;
                       %do i=1 %to &&num&t;
                              %do j=%eval(&i+1) %to &&num&t;
                               if col&i ne col&j then output;
                            %end;
                           %end;

                  end;
      %end;
    
run;

proc sort data=h nodupkey;
     by id var;
run;
%mend;

%compare

pobel 你太强大了

精彩分呈，简直帅呆了

学习学习

不知道这个能否满足楼主的意思：

data a;
input id x1 x2 @@;
cards;
1 11 12
2 21 22
4 41 42
4 411 422
5 51 52
;run;
data b; input id x3 @@;
cards;
1 13 3 33 4 43 5 53 5 533 5 5333
;run;
proc sort data=a;
by id;
run;
proc sort data=b;
by id;
run;
data aa;
set a;
if first.id and last.id then delete;
by id;
run;
data bb;
set b;
if first.id and last.id then delete;
by id;
run;
data cc;
merge aa bb;
by id;
run;
proc print data=cc;
run;

谢谢楼上的这位哦！您的程序虽简单但是也达到我想要的结果，但是我的数据集中，变量有800个，要是把最终结果显示出来的话，找起来还是会比较费劲，不知道是否可以把结果输出弄得更简单容易看一些咧？请教一下。呵呵