Re: Another Concatenation Question

["Peter Dow" <maillist@xxxxxxxxxxxxxxx>]

Hi Dave,

Two choices.  Either make Text VARYING (just put the keyword VARYING on the
Text D-spec) or use %trim(Text), as in:

> C                   Eval      Text = 'Ck: #' + %trim(%editc(E$CkNo:'4'))
> C                   If        E$DrLc <> ' '
> C                   Eval      Text = %trim(Text) + ', License #: ' +
E$DrLc
> C                   If        E$DlSt <> ' '
> C                   Eval      Text = %trim(Text) + '(' + E$DlSt + ')'
> C                   Endif
> C                   Endif
>
> C                   If        E$CkGn <> ' '
> C                   Eval      Text = %trim(Text) + ', Guar#:' +
%trim(E$CkGn)
> C                   Endif

hth,
Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 522-3214 cellular
909 793-4480 fax

----- Original Message -----
From: "Dave" <dschopp@imt.net>
Sent: Friday, October 25, 2002 2:24 PM
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.
>
>