如何将数字转换成类似证券代码格式的字段

shiyiming

var
1
22
333

want
A00001
A00022
A00333
如上，由var->want，want中第一个为字母，其余为数值型字符，这种一般都是怎么实现的涅，请高手指点下，谢谢！！！

shiyiming

[code:3pa2zrxf]data raw;
    input cvar $ nvar;
datalines;
1 1
22 22
333 333
;
data out;
    length cwant nwant $8;
    set raw;
    cwant='A00000';
    substr(cwant,length(cwant)-length(cvar)+1)=cvar;
    nwant=cats('A',put(nvar,z5.));
run;[/code:3pa2zrxf]

shiyiming

很全的解答，多谢hopewell！！

shiyiming

[code:3f3bpr9x]data a;
input var;
new_var=compress('A'||put(var,z5.));
cards;
1
22
333
;
run;[/code:3f3bpr9x]