Re: test if is numeric in RPG

[Tim Truax <truax@xxxxxxxxx>]

> >Hi,
> >
> >I want to test if an alphanumeric string is numeric or not. Do you
> >have some hints or tips to do this?

Here is the CHECK Op code... The IBM SOFTCOPY CD.. I don't know how
anyone works eithout iy these days.
*...1....+....2....+....3....+....4....+....5....+....6....+....7...
  I..............Namedconstant+++++++++C.........Fldnme......... ....
  I*
  I* After the following example, N=6 and the found indicator 90
  I* is on.  Because the start position is 2, the first nonnumeric
  I* character found is the '.'.
  I*
  I              '0123456789'          C         DIGITS
  *...1....+....2....+....3....+....4....+....5....+....6....+....7...
  CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComments++++++
  C*
  C                     MOVE '$2000.'  SALARY
  C           DIGITS    CHECKSALARY:2  N              90

 Pretty Cool!  IBMs Manuals have come a LONG way baby!


-- 
žžžžžžžžžžžžžžžžžžžž
ž-Tim & Dana Truax-ž
žžžžžžžžžžžžžžžžžžžž
+---
| 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
+---