Re: Re:Numeric Validation

[boothm@xxxxxxx]

Here's a snippet to remove all of certain characters (The characters not
in arrray "OK") from a field; the rest of the code is at
http://www.spy.net/~booth/elimin8.htm


     C* I is the column # of the field we are checking;
     C* J is the column # of the field to which we are writing:
     C                     Z-ADD1         I       20
     C                     Z-ADD1         J       20
     C                     MOVEAFIELD     CT
     C* The array CT is 30 columns long; we need to check all 30 columns.
     C                     DO   30
     C           CT,I      LOKUPOK                       61 61=yes
     C* 61 = The character is in the array:
     C           *IN61     IFEQ *ON
     C           FLDA      ANDEQ'Include'
     C                     EXSR FILLSR
     C                     END


In <003401beca85$7ad827c0$32a21e26@delovelady>, on 07/09/99 
   at 10:37 PM, "Dennis Lovelady" <dennis@lovelady.com> said:

>Hi, Steven:

>From: Steven Easton <seaston@ionet.net>
>Sent: July 9, 1999 7:37 PM


>> In rpg3 or rpg4 do TESTN, then do a move if it is numeric

>TESTN will choke on commas.  MOVE to numeric will cause decimal data
>errors if commas or periods are present.
>--
>Dennis Lovelady                    Fayetteville, GA
>mail: dennis@lovelady.com          dennis.e.lovelady@ac.com
>URL:  http://lovelady.piedmont.net
>ICQ:  5734860
>--
>"We can't all be heroes, because somebody has to sit on the curb and clap
>as they go by."
>        - Will Rogers


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


-- 
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

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