Re: test if is numeric in RPG

[Francis Lapeyre <flapeyre@xxxxxxxxxxxxxx>]

Glenn Ericson wrote:
> 
> At 10:16 PM 8/22/97 +0000, you wrote:
> >
> >
> >RE:    test if is numeric in RPG
> >
> >>Hi,
> >>
> >>I want to test if an alphanumeric string is numeric or not. Do you
> >>have some hints or tips to do this?
> >>
> >>Thanks
> >>Eric Mayrand
> >
> >
> >Eric
> >Have a named constant that contains '0123456789'
> >then do a SCAN opcode with the named constant in factor 1
> >and the character string in factor 2 either test the EQ indicator
> >(3rd one) or have a result field(Numeric or array) and test either
> >one or the other.
> >
> >The result field(numeric variable) will be zero if no numerics are
> >found.  If the result field is an array, the array will contain the
> >positions in the character string that had a numeric in it. OK?
> >
> >John Carr
> >EdgeTech
> What happened to the "old" TESTN op code?

As far as I know, it's still there (even in RPG IV). 
-- 
    Francis Lapeyre                       flapeyre@communique.net
    ____________________________________________________________
   |                                                            |
   |"The probability of life originating from accident is       |
   |comparable to the probability of the Unabridged Dictionary  |
   |resulting from an explosion in a printing factory."         |
   |                                                            |
   | --Prof. Edwin Conklin                                      |
   |____________________________________________________________|

****** Unsolicited commercial e-mail is not tolerated here. *******
****** Senders of such mail do so at their own peril.       *******
****** A copy, complete with header, is forwaded to the     *******
****** originating ISP for action.                          *******

      Opinions are my own. Otherwise, they are someone else's.
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---