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;