Re: Concatenate text + numeric

[Dave <dschopp@xxxxxxx>]

"Booth Martin" <Booth=zPOEG7LBV2lWk0Htik3J/w@public.gmane.org> helped
spread the news by saying:

>
>
> Are you trying to remove the blank, keep the leading zero, or both?
>
>
>
> ---------------------------------------------------------
> Booth Martin   http://www.MartinVT.com
> Booth=zPOEG7LBV2lWk0Htik3J/w@public.gmane.org
> ---------------------------------------------------------
>
> -------Original Message-------
>
> From: rpg400-l=Zwy7GipZuJhWk0Htik3J/w@public.gmane.org
> Date: Friday, October 18, 2002 11:51:19 AM
> To: rpg400-l=Zwy7GipZuJhWk0Htik3J/w@public.gmane.org
> 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


Sorry, I must have left that part out.  I need what I get with the MOVE
statements - that is, "XX01234".

As Carsten said, I think I need to use the edit code 'X'.

--
David Schopp
WISDM Team Leader
Computers Unlimited