Re: Another Concatenation Question

["Michael Naughton" <mnaughton@xxxxxxxxxxxx>]

Hi David,

Instead of
Text = Text + ', License #:' ....

Use
Text  = %Trim(Text) + ', License #:' ....

for your 2nd (and all subsequent assignments).

hth

rpg400-l@midrange.com writes:
>Why doesn't the following code work?
>
>Given Values                   Len
>-------------------- -----
>Text = *Blank                  80
>E$CkNo = 002850         6.0
>E$DrLc = "AAA123"      15
>E$DlSt = "MT"                   2
>E$CkGn = "BBB456"      15
>
>Code:
>-----
> * Text will be "Ck: #999999, License #: AAAAAAAA (XX), Guar#: AAAAAAAAA"
>
>C                   Eval      Text = 'Ck: #' + %trim(%editc(E$CkNo:'4'))
>C                   If        E$DrLc <> ' '
>C                   Eval      Text = Text + ', License #: ' + E$DrLc
>C                   If        E$DlSt <> ' '
>C                   Eval      Text = Text + '(' + E$DlSt + ')'
>C                   Endif
>C                   Endif
>
>C                   If        E$CkGn <> ' '
>C                   Eval      Text = Text + ', Guar#:' + %trim(E$CkGn)
>C                   Endif
>
>
>Result:
>--------
>Text = "Ck: #2850"
>
>Can't figure out why Text isn't appended to after the first assignment
>line.
>
>Let's not get into any VARYING discussions or anything like that.  I just
>wanna know how to get this to work.
>
>--
>David Schopp
>WISDM Team Leader
>Computers Unlimited



Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA  01376
413-863-4357 x444
mnaughton@juddwire.com