RE: Concatenate text + numeric

["Johnson, Duane" <djohnson@xxxxxxxxxxxxx>]

        Try      EVAL   AlphaNum = Alpha + %trim(%editc(Number: 'Z'))

        Duane



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