How to add leading zero to a subset of data

[zjppdozen]

Hi all,

I have a character ID variable like this

001

002

003

L8982

L8983

L8984

I want to add a leading zero only to those IDs whose first number is also number. In other words, I want

0001

0002

0003

L8982

L8983

L8984

Could anyone write a sample code for me to help me solve this problem?

Any help is appreciated.

[ChrisNZ · Accepted solution]

Like this?

if input(ID,?? 32.) and length(ID)=3 then ID='0'||ID;

[zjppdozen]

This code works very well! Thank you very much!