SCOUG-Programming Mailing List Archives

<< Previous Message << >> Next Message >>

Date:	Thu, 17 Sep 1998 16:36:14 PDT
From:	Steven Levine <steve53@earthlink.net >
Reply-To:	scoug-programming@scoug.com
To:	scoug-programming@scoug.com
Subject:	SCOUG-Programming: Calling all REXX programmings

In <199809171540.0434753.6@sundialsystems.com>, on 09/17/98
at 03:40 PM, "Rollin White" said:

>On Thu, 17 Sep 1998 15:36:03 PDT, Rollin White wrote:

>I'll answer my own question. Turned out to be easier than I thought:

If you've got a lot of numbers to do, try:

do forever
i = verify(input, '0123456789')
if i = 0 then
leave
input = left(input, i - 1) || substr(input,i + 1)
end

Steven

--
-----------------------------------------------------------
Steven Levine MR2/ICE #10183
-----------------------------------------------------------

=====================================================

To unsubscribe from this list, send an email message
to "steward@scoug.com". In the body of the message,
put the command "unsubscribe scoug-programming".

For problems, contact the list owner at
"rollin@scoug.com".

=====================================================

Return to [ 17 | September | 1998 ]

SCOUG, Warp Expo West, and Warpfest are trademarks of the Southern California OS/2 User Group. OS/2, Workplace Shell, and IBM are registered trademarks of International Business Machines Corporation. All other trademarks remain the property of their respective owners.