Hi Kirk,

in case of suffix len is max. 2 and initial len is max 1 this could do:


DIMENSION arr1(3)
arr1(1) = [Kelly Jr Kirk A]
arr1(2) = [Smith Bob]
arr1(3) = [Roberts Ben D]

CLEAR
FOR i = 1 TO ALEN(arr1,1)

IF GETWORDCOUNT(arr1(i),[ ]) > 2

IF LEN(GETWORDNUM(arr1(i),GETWORDCOUNT(arr1(i),[ ]))) = 1
? GETWORDNUM(arr1(i),GETWORDCOUNT(arr1(i),[ ]) - 1,[ ]) + [ ]
?? GETWORDNUM(arr1(i),GETWORDCOUNT(arr1(i),[ ]),[ ]) + [. ]
ELSE
? GETWORDNUM(arr1(i),GETWORDCOUNT(arr1(i),[ ]),[ ]) + [ ]
ENDIF

?? GETWORDNUM(arr1(i),1,[ ]) + [ ]

IF LEN(GETWORDNUM(arr1(i),2,[ ])) <= 2
?? GETWORDNUM(arr1(i),2,[ ])
ENDIF

ELSE

? GETWORDNUM(arr1(i),2,[ ]) + [ ]
?? GETWORDNUM(arr1(i),1,[ ])

ENDIF

ENDFOR


However, you should have a look at regular expressions. Those are much more powerful....

>Does anyone have a routine written that they could share to parse a name field into the separate fields.
>
>I have to import a file, and the name is all in one field, the current value of the field is formatted as:
>

>lastname suffix firstname midle-initial
>
>Example
>Kelly Jr Kirk A
>Smith Bob
>Roberts Ben D
>

>
>Thanks for any help.
>
>Kirk