|
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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.