Change format from numeric to alpha with leading 0's 1

[GJFNH]

Hi - I'm wondering if there is a cleaner way to convert Numeric fields to Alpha (with leading zeros).
I'm appending 2 tables, and am changing a lot of fields so they'll all be formatted the same in both tables.

Here's my current version, which works, but for larger fields, would be cumbersome.

FORMAT TERR $3.;
TERR = TERRITORY;
IF SUBSTR(TERR,1,1) = ' ' THEN SUBSTR(TERR,1,1) = '0'; 
IF SUBSTR(TERR,2,1) = ' ' THEN SUBSTR(TERR,2,1) = '0';
IF SUBSTR(TERR,3,1) = ' ' THEN SUBSTR(TERR,3,1) = '0';

example:
territory = 051
terr would = " 51" (although looks like "51 " on monitor!)
after IF's, terr = 051

Thanks in advance!

 

[klaz2002]

Z formats are your friend.

If your data is in char format, convert to it to numeric and then convert back to char using the z format feature.
if its in numeric format then all you need to do is format it using the z format feature.
example

*** IF TERRITORY IS A CHAR ***;
TERR = trim(left(put(input(TERRITORY, best32.),z3.)));

*** IF TERRITORY IS A NUM***;
TERR = trim(left(put(TERRITORY,z3.)));

I hope this helps.
Klaz

 

[GJFNH]

That is so slick........tried it, and it's perfect!

THANK YOU!!!