请教如何实现这种数据需求

shiyiming

data tm;
input xm $ name $ results;
cards;
A        氨曲南        16
A        哌拉西林        22
A        氨苄西林        25
B        氨曲南        29
B        头胞西丁        22
B        头孢唑啉        14
B        美洛培南        25
C        氨曲南        12
C        头孢呋辛        12
C        阿米卡星        21
run;

请教大虾，怎么把上面数据转成下面这种形式，谢谢！ 【求代码】

name        A        B        C
阿米卡星        .        .        21
氨苄西林        25        .        .
氨曲南        16        29        12
美洛培南        .        25        .
哌拉西林        22        .        .
头孢呋辛        .        .        12
头孢唑啉        .        14        .
头胞西丁        .        22        .

shiyiming

[code:1hsei9h3]
data ads;
input xm $ name $ results;
cards;
A 氨曲南 16
A 哌拉西林 22
A 氨苄西林 25
B 氨曲南 29
B 头胞西丁 22
B 头孢唑啉 14
B 美洛培南 25
C 氨曲南 12
C 头孢呋辛 12
C 阿米卡星 21
run;

proc sort data=ads;
by name;
run;

proc transpose data=ads out=bds name=xm;
by name;
var results;
id xm;
run;

data cds;
  set bds;
  drop xm;
run;

[/code:1hsei9h3]

shiyiming

太好了，我之前用个笨办法写了几页代码，又累还怕出错。
哈哈，谢谢大侠！向大侠致敬！