RE: test if is numeric in RPG

[John Carr <74711.77@xxxxxxxxxxxxxx>]

RE:     RE: test if is numeric in RPG

Bob 
Ya, That was a mistake,  I was in a rush and keyed the wrong opcode.  
It should have been the CHECK opcode not the SCAN.   Sorry...  I guess 
from the other posts though,  that I'm not the only one who from time to 
time has hit the send key too early, and said "Ahhh   #$%@^*"  
<BG>
John

P.S. I guess the only thing worse would have been posting an example with 
an ITER statement that produced an Infinite Loop <G> <BG> <VBG> <LOL> <DOW>

---------------------

>John and Eric,
>I usually use the TESTN, however the CHECK opcode might be a little more 
>simple for straight numeric stuff.
>Bob

-----------------------------------------------------------------------
On Friday, August 22, 1997 5:17 PM, John Carr [SMTP:74711.77@CompuServe.COM] 
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
> 

+---
| 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
+---