一道难题，请高手帮忙

shiyiming

％let tt=%str(A B C);
data a;
input unid $ X $;
cards;
001 A
001 B
001 C
002 B
003 A
003 B
;
run;

现有data a和一个字符串tt如上所示。
要求建一个新变量y,使每个unid中x中缺少的值（相比较tt）赋值给y。
比如001的y就为空，002的y就是A B,003的y就是C,如下表所示：
unid x y
001 A .
001 B .
001 C .
002 C A B
003 A C
003 B C

先谢谢了！！

shiyiming

[code:2e1ttiwc]
data result;
        if 0 then set a;
        Y="&tt";
        do until(last.unid);
                set a;
                by unid;
                Y=strip(compbl(tranwrd(Y,strip(X),'')));
        end;
        if Y='' then Y='.';
        do until(last.unid);
                set a;
                by unid;
                output;
        end;
run;[/code:2e1ttiwc]