抛砖引玉一把

data test1;
input var1 $9.  var2 ;
cards;
441802222 087
440781221 10
440703240 1000
483298992 8
237887    123456
4555      777
;
run;

data test2;
set test1;

if length(var1)+length(left(var2)) =13 then do;
var3 = input(compress(var1||left(var2)),$13.);
end;
else do;
var3 = input(compress(var1||substr('000000000000000',1,13-length(var1)-length(left(var2)))||left(var2)),$13.);
end;
run;

不知理解对了没有
var3 = put(compress(osid||put(pid,z4.)), $13.);

非常正确

data test;
input osid $9. pid ;
var3 = cats(osid, put(pid, z4.));
var4 = put(compress(osid||put(pid,z4.)), $13.);
var5 = osid||put(pid, z4.);
datalines;
441802222  087
440781221 10
440703240 1000
; run;
proc contents data=test; run;

Alphabetic List of Variables and Attributes
        #    Variable    Type    Len
        1    osid        Char      9
        2    pid         Num       8
        3    var3        Char    200
        4    var4        Char     13
        5    var5        Char     13

谢谢你的抛砖引玉，我学习了一下你的程序，获益良多@tangliang0905！谢谢你提供多种方法供我学习@yongyitian!谢谢你两次热心帮助，回答的很精准@boe！