Removing Spaces

[brian_matthewsbrian matthews]

defines are evaluated only when referenced, try ' report T-AA T-CC T-DD T-BB 
'.

If you want this to execute for many records in the file PRIMARY-MST you 
will probably have to modiffy three of the lines as below,

>DEFINE T-CC CHAR*6  = "Y" IF SETSYSTEMVAL("VAR_AA",(T-AA)) &
if record PRIMARY-MST exists

>DEFINE T-DD CHAR*6  = "Y" IF SETSYSTEMVAL("VAR_BB","![REPL(VAR_AA,' 
>','')]")  &
if record PRIMARY-MST exists

>DEFINE T-BB CHAR*30 = GETSYSTEMVAL("VAR_BB")  &
if record PRIMARY-MST exists

this is because items which do not reference record items are evaluated only 
once ( I think ), the code above ties the define processing to the primary 
file.


regards Bri,


>From: Ted Johnson <johnsont@wfu.edu>
>To: powerh-l@lists.sowder.com
>Subject: Removing Spaces
>Date: Wed, 16 Mar 2005 16:42:52 -0500
>
>I am trying to remove all the spaces from a field.  I found the following 
>code from some previous postings.
>
>DEFINE T-AA CHAR*20 = "12 456  789  A  B C"
>DEFINE T-CC CHAR*6 = "Y"  IF SETSYSTEMVAL("VAR_AA",(T-AA))
>DEFINE T-DD CHAR*6 = "Y" IF SETSYSTEMVAL("VAR_BB","![REPL(VAR_AA,' ','')]")
>DEFINE T-BB CHAR*20 = GETSYSTEMVAL("VAR_BB")
>REPORT T-AA T-BB
>go
>
>Which I changed to:
>
>ACCESS PRIMARY-MST
>
>SELECT IF BOX-CREATE-WHO = 'SCTSYNCH'
>
>DEFINE T-AA CHAR*30 = BOX-SORT-NAME
>DEFINE T-CC CHAR*6  = "Y" IF SETSYSTEMVAL("VAR_AA",(T-AA))
>DEFINE T-DD CHAR*6  = "Y" IF SETSYSTEMVAL("VAR_BB","![REPL(VAR_AA,' 
>','')]")
>DEFINE T-BB CHAR*30 = GETSYSTEMVAL("VAR_BB")
>REPORT T-AA T-BB
>GO
>EXIT
>
>However the output field T-BB is always blank.
>
>When I do
>
>ACCESS PRIMARY-MST
>
>DEFINE T-AA CHAR*30 = "Johnson, Theodore H."
>DEFINE T-CC CHAR*6  = "Y" IF SETSYSTEMVAL("VAR_AA",(T-AA))
>DEFINE T-DD CHAR*6  = "Y" IF SETSYSTEMVAL("VAR_BB","![REPL(VAR_AA,' 
>','')]")
>DEFINE T-BB CHAR*30 = GETSYSTEMVAL("VAR_BB")
>REPORT T-AA T-BB
>GO
>EXIT
>
>I get the following output
>
>T-AA                            T-BB
>
>Johnson, Theodore Harold        Johnson,TheodoreHarold
>
>Why can't I get the output to work correctly when reading from a field?
>
>Thanks,
>
>Ted Johnson
>
>
>
>--
>****************************************************
>Ted Johnson			johnsont@wfu.edu
>Information Systems
>Wake Forest University		336-758-4374
>Winston-Salem, NC 27109		336-758-7127 FAX
>
>"Good judgment comes from experience and a lot of
>that comes from bad judgment".
>			 -- Richard Karn
>
>
>
>= = = = = = = = = = = = = = = = = = = = = = = = = = = =
>Mailing list: powerh-l@lists.sowder.com
>Subscribe: "subscribe" in message body to powerh-l-request@lists.sowder.com
>Unsubscribe: "unsubscribe <password>" in message body to 
>powerh-l-request@lists.sowder.com
>http://lists.sowder.com/mailman/listinfo/powerh-l
>This list is closed, thus to post to the list you must be a subscriber.

_________________________________________________________________
Want to block unwanted pop-ups? Download the free MSN Toolbar now!  
http://toolbar.msn.co.uk/