data a;
input x$ y;
cards;
8J 9
8J 111
8J 1113
8J 114
8S 118
8J 121
8J 2122
9S 123
8J 124
9J 6
8J 128
8J 29
8J 2139
8J 144
;run;
data b;
set a;
length d$ 8.;
d=compress(cat(x,repeat('0',6-length(compress(x))-length(compress(y))),y ));
run;

-----------------------------

g d=x+substr(string(100000+y),2,.)

谢谢sushe1527老师给了sas程序。
谢谢sungmoo老师：您总能以一种简单的方式解决问题！
如果y是字符型变量则可以用：gen d=x+substr("000000"+y,-5,.)
stata中没有重复某个字节的命令或函数？如sas中的repeat("0",n)

好像没有一步可以实现的命令或函数。