RE: Concatenate text + numeric

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

Two ways:
        This one will have leading zeroes.
        eval alphanum = alpha + %editc(number : 'X')
        This one won't.
        EVAL   AlphaNum = Alpha + %trim(%char(Number))

Other combinations of %trim and edit codes or edit words will also work.

> -----Original Message-----
> From: Dave [mailto:dschopp@imt.net]
> Sent: Friday, October 18, 2002 8: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.
>
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise
recorded by The Sharper Image corporate e-mail system and is subject to
archival, monitoring, review by and/or disclosure to Sharper Image security
and other management. This message is intended only for the use of the
addressee and may contain information that is privileged and confidential.
The contents of this message may contain personal views which are not the
views of The Sharper Image. If you are not the intended recipient,
dissemination of this communication is prohibited.