看着步骤多，不过都简单，思路清晰。巧妙利用数据集的合并来匹配，通用性很好。

Here is a simple one to use sas format.
proc format;
value $nameshort   
a   =      xy
b   =      er
c   =      abc
;
run;

data tmp;
length id 8 type $8 type2 $30;
input id  type;
n=countw(type,',');
do i=1 to n;
type2=catx(',', type2, put(scan(type,i,','),$nameshort.));
end;
drop i n;
cards;
1  a,b
2  a
3  a,b,c
;
run;

proc print;run;

用format value语句直接转换也可以

学习了 谢谢各位