×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
• Talk With Other Members
• Be Notified Of Responses
• Keyword Search
Favorite Forums
• Automated Signatures
• Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

#### Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

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

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

(OP)
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.

#### CODE

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

### RE: Change format from numeric to alpha with leading 0's

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

#### CODE

*** 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 :)

### RE: Change format from numeric to alpha with leading 0's

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

THANK YOU!!!

#### Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

#### Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Close Box

# Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

• Talk To Other Members
• Notification Of Responses To Questions
• Favorite Forums One Click Access
• Keyword Search Of All Posts, And More...

Register now while it's still free!