Re: Name Parse

You're on track with how I'd do it - move the string to an array.

Then use the SCAN opcode to scan for the first separator - blank or '/'. If
there are more than one valid separators, you'll have to  scan for the
first one, save the location in the array (index) to a variable, then scan
for the other separator:

blank = ' '
slash = '/'

blank          scan          nameArray:strt     blankLocation
slash          scan          nameArray:strt     slashLocation

then compare blankLocation with slashLocation - the smaller value is the
position in the array of the end of the first word in your string. The
beginning of the word is the value in strt - then those two values can be
used to build a %substring to pull out that word.

move that location to strt and repeat scans to find subsequent words.

(assumes no leading blanks/slashes - if these are possible, then you'll
first have to find the first non-blank, non-slash character and use that
location as your initial strt value)



Tom Clements
Help/Systems Inc.
612-563-2780


                                                                                
                                    
                    "bill totz"                                                 
                                    
                    <robsurge@hotmail        To:     RPG400-L@midrange.com      
                                    
                    .com>                    cc:                                
                                    
                    Sent by:                 Subject:     Name Parse            
                                    
                    owner-rpg400-l@mi                                           
                                    
                    drange.com                                                  
                                    
                                                                                
                                    
                                                                                
                                    
                    03/07/00 02:21 PM                                           
                                    
                    Please respond to                                           
                                    
                    RPG400-L                                                    
                                    
                                                                                
                                    
                                                                                
                                    




Hello List

We have been given the unfortunate task of parsing a non standard naming
format and breaking it down into the serparte parts of first middle last
and
surname (if one is present.)

The name field is a 40 byte field formatted "LAST SUR/FIRST MID/"

I basically just want 4 fields back containing the first middle last and
surname(if present).

We are attempting to accomplish this by moving the string into an array,
and
using an index to count through the array a byte at a time and setting
indicators when certain conditions are met, such as a blank, or a '/'.
However, my partner and I are incredibly new to the RPG world, and are
getting lost in the complexity of writing this routine. We are devout
followers of this list and would appreciate any available help, so that we
can keep our jobs. :)

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com

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



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