Re: Concatenate text + numeric

["Booth Martin" <Booth@xxxxxxxxxxxx>]

Are you trying to remove the blank, keep the leading zero, or both?



---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: rpg400-l@midrange.com
Date: Friday, October 18, 2002 11:51:19 AM
To: rpg400-l@midrange.com
Subject: Concatenate text + numeric

I need to combine an alpha field with a numeric field to create a single
alpha-numeric field (makes sense) like thus:

Alpha = "XX"
Number = 01234

When I use the statement

EVAL AlphaNum = Alpha + %char(Number)

I end up with AlphaNum = "XX 1234". I've tried

EVAL AlphaNum = Alpha + %editw(Number: '0 ')
and
EVAL AlphaNum = Alpha + %editc(Number: '3')

with similar results. What's the secret to getting it to work?

Eventually I ended up coding

MOVEL Alpha AlphaNum
MOVE Number AlphaNum

but that kinda defeats moving forward.

I can't use free form 'cuz we have clients on V4R3 still.

TIA,
Dave


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

.