>Can I condense this code where I am inserting leading zeroes?
>It's not easy to read and it's also hard to follow. All it does is insert leading zeroes so I can do a seek.
>
>IF VALU $ "0123456789"
> DO CASE etc ...

Though the padl solution is the easiest one, here is another

?transform(1234, "@l 99999999")