0044: SUFFIXES = ",JR,SR,MD,III,"
0045: S.NAME = DCOUNT(UM.NAME,' ')
0046: LAST.WORD.IN.NAME = FIELD(UM.NAME,' ',S.NAME)
0047: IF INDEX(SUFFIXES,",":LAST.WORD.IN.NAME:",",1) THEN
0048: LAST.NAME = FIELD(UM.NAME,' ',S.NAME-1)
0049: END ELSE
0050: LAST.NAME = LAST.WORD.IN.NAME
0051: END
0052: PREFIXES = ',DR,MR,MS,MISS,MRS,'
0053: FIRST.WORD.IN.NAME = FIELD(UM.NAME,' ',1)
0054: IF INDEX(PREFIXES,",":FIRST.WORD.IN.NAME:",",1) THEN
0055: FIRST.NAME = FIELD(UM.NAME,' ',2)
0056: END ELSE
0057: FIRST.NAME = FIRST.WORD.IN.NAME
0058: END
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
