Re: Numeric search on Phone number

[Mike.Barton@xxxxxxxxxxxx]

Phil
     I presume that your phone number is an alpha-numeric field.

The normal way is to do something like the foillowing (assuming {file} is
keyed by phone number):


     C* create start end versions of search

     C                     MOVE {input}    START
     C* (assumes no imbedded blanks in input field)
     C           ' ':'9'   XLATE{input}    END

     C           START     SETLL{file}
     C                     READ {file}                   80
     C  N80      {filephne}COMP END                  80
     C  N80      *IN80     DOWEQ*OFF

     C* code in here

     C                     READ {file}                   80
     C  N80      {filephne}COMP END                  80
     C                     ENDDO

I'm sure there will be other (better) solutions !
Mike

P.S. pls no DOW/DOU debates !!



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