程序没有编完整，我补齐。

data a;
input id $6. name $10.;
cards;
X10001   张三
X21001   张三
X10001   李四
X20012   李四
X30052   李四
X10112   王五
X30998   王五
;
run;
proc sort data=a;by name;run;
data aa;
set a;
if substr(id,1,2)="X1" then do;id1981=id;output;end;
run;
data bb;
set a;

if substr(id,1,2)="X2" then do;id1998=id;output;end;
run;
data cc;
set a;
if substr(id,1,2)="X3" then do;id2004=id;output;end;
run;
/*proc sort data=aa;by name;run;*/
/*proc sort data=bb;by name;run;*/
/*proc sort data=cc;by name;run;*/
data x;
merge aa bb cc;
by name;
run;

data x; set x; drop id; run;/*必需去掉id，不如其它id号的记录会不出现*/

data z;
merge a x; by name;
run;

data z; set z;
if substr(id,2,1)=1 then id1981=" ";
else if substr(id,2,1)=2 then id1998=" ";
else if substr(id,2,1)=3 then id2004=" ";
run;

/*方法3，这方法更简单了*/

data a;
input id $6. name $10.;
cards;
X10001   张三
X21001   张三
X10001   李四
X20012   李四
X30052   李四
X31052   李四
X10112   王五
X10998   王五
;
run;

data b1; set a;
length id1981 $8.;
if substr(id,2,1)=1 then id1981=id;
keep name id1981;
if id1981=" " then delete;
run;

data b2; set a;
length id1998 $8.;
if substr(id,2,1)=2 then id1998=id;
keep name id1998;
if id1998=" " then delete;
run;

data b3; set a;
length id2004 $8.;
if substr(id,2,1)=3 then id2004=id;
keep name id2004;
if id2004=" " then delete;
run;

proc sort data=b1; by name; run;
proc sort data=b2; by name; run;
proc sort data=b3; by name; run;

data b; merge b1 b2 b3; by name; run;

proc sort data=a; by name; run;
/*关键是把所有重复姓名的ID变成是一个姓名的记录*/
data c; merge a b; by name;
run;
data c; set c;
if substr(id,2,1)=1 then id1981="";
if substr(id,2,1)=2 then id1998="";
if substr(id,2,1)=3 then id2004="";
run;

proc print data=c; run;