Re: Another Concatenation Question

["Ali Ekinci" <Ali.Ekinci@xxxxxxxxxx>]

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
I guess you are missing the %trimr:

Eval      Text = %trimr(Text) + ', License #: ' + E$DrLc






Dave <dschopp@imt.net>
Sent by: rpg400-l-admin@midrange.com
10/25/2002 04:24 PM
Please respond to rpg400-l


        To:     rpg400-l@midrange.com
        cc:
        Subject:        Another Concatenation Question


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


_______________________________________________
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.