* First use the PROPER function: REPLACE lastname WITH PROPER(lastname) * Fix the "problems" caused by the PROPER function. * "Mcfarland" will become "McFarland" * "Brown-davis" will become "Brown-Davis" REPLACE lastname WITH FIX_NAME(lastname) ************************************************* * Call this for each NAME part. * This is basically a series of STRTRAN commands. FUNCTION FIX_NAME LPARAMETERS namemv * Trim out any double spaces that may be embedded. namemv = STRTRAN( namemv, ' ', ' ' ) * Fix "II", "III", "IV", (James Graham, III). namemv = STRTRAN( namemv, ' Ii ', ' II ' ) namemv = STRTRAN( namemv, ' Iii ', ' III ' ) namemv = STRTRAN( namemv, ' Iv ', ' IV ' ) * Fix "Mcdonald". IF SUBSTR(namemv,1,2) = "Mc" STORE SUBSTR(namemv,1,2) + UPPER(SUBSTR(namemv,3,1)) + SUBSTR(namemv,4,50) TO namemv ENDIF RETURN namemv ENDFUNC && end of "fix_address" * Fix "O'brian". IF SUBSTR(namemv,1,2) = "O'" STORE SUBSTR(namemv,1,2) + UPPER(SUBSTR(namemv,3,1)) + SUBSTR(namemv,4,50) TO namemv ENDIF