Re: Extract number from character field

If there's only one number to worry about:

D From            c                   'abcdefghijklmnopqrstuvwxyz+
D                                      ABCDEFGHIJKLMNOPQRSTUVWXYZ+
D                                      $@=-_!|\/?'
D To              s             66A   INZ(*blanks)
D InpString       s             32A
D OutNbr          s                   LIKE(InpString)
D Temp            s                   LIKE(InpString)
**
C     *entry        plist
C                   parm                    InpString
C     From:To       xlate     InpString     Temp             32
C                   eval      OutNbr = %trim(Temp)
C     OutNbr        dsply
C                   seton                                        LR

You might need to change the "From" contents depending upon what's allowed
in your input string.

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


From: <RickRyn@aol.com>
> I've got a 25 byte field that contains a number somewhere in it that I
wish
> to extract.  Example:  Field contents (XYZ Company Store 123).  The
problem
> is that "123" could be anywhere or it could be "1234".  I am using RPG ILE
> and am getting nowhere fast.  Any ideas?


+---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---


__________________________________________________
Do You Yahoo!?
Bid and sell for free at http://auctions.yahoo.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---