RE: how to "squeeze" a field of spaces

Thanks - I will give this a try.  Looks like a great solution!



-----Original Message-----
From: Tucker Gerry [mailto:Gerry.Tucker@xxxxxxxxxxx]
Sent: Tuesday, January 06, 2004 6:34 AM
To: midrange-l@xxxxxxxxxxxx
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.