Re: When is a CAT not a CAT

["Richard" <rlhenley@xxxxxxxxxx>]

factor two(2) of the cat command needs  to know how many spaces to leave.

 C                   Cat       PHNAR(X):0      sPhone

has always worked for me, anyway.

Dick




----- Original Message -----
From: "Chris Devous" <cdevous@antigua.com>
To: <rpg400-l@midrange.com>
Sent: Thursday, January 02, 2003 6:50 PM
Subject: When is a CAT not a CAT


> Well, this is interesting.  What am I missing?
>
> CPHON = '503-829-8080   '
> At the ass end, sPhone = '               ', but I think it *should* =
'5038298080     '
>
>
> D PHNAR           S              1    DIM(15)
> C                   Eval      sPhone = *Blanks
> C                   MoveA(P)  CPHON         PHNAR
> C                   Eval      X = 1
>  *
> C                   DoU       X = 15
> C                   If        PHNAR(X) <> ' ' And
> C                             PHNAR(X) <> '-' And
> C                             PHNAR(X) <> '(' And
> C                             PHNAR(X) <> ')'
> C                   Cat       PHNAR(X)      sPhone
> C                   EndIf
> C                   Eval      X = X + 1
> C                   EndDo
>
> I've also tried Eval    sPhone = sPhone + PHNAR(X)
>
> But, to no avail.  I are unable to build my phone number.
>
> I watch in debug, and I see the cat/eval instruction execute, but no data
goes into the
> result.
>
> Anybody know why?  Am I a dummy?
>
> TIA,
>
> Chris
>
>
> _______________________________________________
> 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.
>
>