How to patch "0"s ahead a string?!

[hellohere]

Say I have dataset below(x is 0-9 digit).

xx

xxx

xxxxxx

need patch "0"s ahead of them to make them like[length=6; patch 0s ahead if number of digits are less than 6]

0000xx

000xxx

xxxxxx

How to do it? Anyone?

[hellohere]

Start with the dataset below data _temp; input tick $; datalines; 12 1234 654321 ; run;quit;

[novinosrin · Accepted solution]

data have;
  input var1 $6.;
  cards;
xx
xxx
xxxxxx
;


data want;
  set have;
  need=translate(right(var1),'0',' ');
run;

[hellohere]

Thanks a lot!