RE: how to "squeeze" a field of spaces -- MIDRANGE-L

That looks like RPG - as mentioned, you'd need to create a user-defined function for this. But it can be done, I think, with an SQL UDF - there are control statements (WHILE, REPEAT, IF, FOR, etc.) in SQL now, so you can write the same thing in SQL - things like POSITION() function can be used with a SET statement to do the same as the %SCAN outlined below, AFAIK.

HTH
Vern

At 10:21 AM 1/6/2004 -0600, you wrote:

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 mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.