RE: Concatenate text + numeric

["Haas, Matt" <Matt.Haas@xxxxxxxxxxxxxxxxxxx>]

Dave,

Have you tried using %trim(%char(Number))?

Matt

-----Original Message-----
From: Dave [mailto:dschopp@imt.net]
Sent: Friday, October 18, 2002 11:33 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.