RE: how to "squeeze" a field of spaces

I took this time to open up the SQL reference and study each and every one 
of the scalar functions and didn't see one that would do the trick, all by 
itself.  There are some items in there that I never would have thought of.

If SQL it must be you could always take Gerry's example, test it, and turn 
it into a UDF and call that from SQL.  For more information on UDF's check 
out this list's FAQ list.

Rob Berendt
-- 
"All creatures will make merry... under pain of death."
-Ming the Merciless (Flash Gordon)




"Tucker Gerry" <Gerry.Tucker@xxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
01/06/2004 07:33 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
<midrange-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RE: how to "squeeze" a field of spaces






Joel,

Try this bit of code which uses the %SCAN and %REPLACE built-in functions.

C                   Eval      string      = 
C                              'String   with    blanks     to  strip' 
 
C                   DoW       %Scan( '  ': string ) > 0 
C                   If        %Scan( '  ': string ) > 
C                              %Len( %TrimR( string ) ) 
C                   Leave 
C                   EndIf 
C                   Eval      string      = 
C                              %Replace( '': string: 
C                                        %Scan( '  ': string ): 1 ) 
C                   EndDo 
 
C     string        Dsply 


Regards,

Gerry Tucker
Senior Analyst Programmer
Technicolor Thomson Group
Tel: +44 (0)20 8900 1122
DDI: +44 (0)20 8900 6555
Mobile: +44 (0)7974 561013

_______________________________________________
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.