Re: Concatenation in CL

still using the old 3476 workstation ???<gr>
jim
----- Original Message ----- 
From: "Al Barsa" <barsa@xxxxxxxxxxxxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Thursday, July 21, 2005 10:49 PM
Subject: RE: Concatenation in CL


>
> *VERYINTERESTING, I have used nothing but the vertical bar since it was
> introduced.  I've never had a complaint.
>
> Al
>
> Al Barsa, Jr.
> Barsa Consulting Group, LLC
>
> 400>390
>
> "i" comes before "p", "x" and "z"
> e gads
>
> Our system's had more names than Elizabeth Taylor!
>
> 914-251-1234
> 914-251-9406 fax
>
> http://www.barsaconsulting.com
> http://www.taatool.com
> http://www.as400connection.com
>
>
>
>
>              rob@xxxxxxxxx
>              Sent by:
>              midrange-l-bounce                                          To
>              s@xxxxxxxxxxxx            Midrange Systems Technical
>                                        Discussion
>                                        <midrange-l@xxxxxxxxxxxx>
>              07/21/2005 05:56                                           cc
>              PM
>                                                                    Subject
>                                        RE: Concatenation in CL
>              Please respond to
>              Midrange Systems
>                  Technical
>                 Discussion
>              <midrange-l@midra
>                  nge.com>
>
>
>
>
>
>
> avoid |<
> the verticle bar doesn't translate on other ccsid machines.
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
>
>
>
>
> Paul Jackson <pjackson@xxxxxxxxxx>
> Sent by: midrange-l-bounces@xxxxxxxxxxxx
> 07/21/2005 04:51 PM
> Please respond to
> Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
>
>
> To
> "'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
> cc
>
> Subject
> RE: Concatenation in CL
>
>
>
>
>
>
> Use the concatenate without trailing blanks such as:
>
> CHGVAR &EMAIL  (&USER |< '@DOMAIN.COM')
>
> or
>
> CHGVAR &EMAIL  (&USER *TCAT '@DOMAIN.COM')
>
> this removes trailing blanks from user and than concatenates to
> '@DOMAIN.COM'
>
> HTH
>
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Bob Voltz
> Sent: Thursday, July 21, 2005 2:46 PM
> To: midrange-l@xxxxxxxxxxxx
> Subject: Concatenation in CL
>
>
> I want to create an email address by concatenating the user i.d with the
> domain, which is a constant.
>
>
>
> Pseudocode:
>
> DCL VAR(&EMAIL) TYPE(*CHAR) LEN(??)
> DCL VAR(&USER) TYPE(*CHAR) LEN(10)
>
> RTVJOBA USER(&USER)
>
> &EMAIL = &USER + '@DOMAIN.COM'
>
> How is this best done in CL?
>
> Thanks,
> Robert N. Voltz
> Senior Programmer/Analyst
> Allied Machine & Engineering Corp.
> mailto:BVoltz@xxxxxxxxxxxxxxxxx
> Phone: 330.343.4283 ext 8360
> Fax..: 330.602.3400
>
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
>
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>