Re: When is a CAT not a CAT

["Peter Dow" <maillist@xxxxxxxxxxxxxxx>]

Hi Chris,

You don't show the definition of sPhone, but whether it's fixed or variable,
you set it to blanks, but your CAT doesn't trim blanks.  Try

 C                   Cat       PHNAR(X):0      sPhone

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


----- Original Message -----
From: "Chris Devous" <cdevous@antigua.com>
Sent: Thursday, January 02, 2003 4: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