/* ***************************************************************************
COPYRIGHT (C) 2005 BY SMART-IT-CONSULTING.COM
* Do not remove this header
* This program is provided AS IS 
* Use this program at your own risk
* Don't publish this code, link to http://www.smart-it-consulting.com/ instead
*************************************************************************** */

/* Convert special characters to standard ASCII 
RUN makeCleanAsciiString.p (INPUT cAnsiString, OUTPUT cAsciiString).
*/

DEF INPUT  PARAM cString    AS CHAR CASE-SENSITIVE NO-UNDO.
DEF OUTPUT PARAM cOutString AS CHAR CASE-SENSITIVE NO-UNDO.


ASSIGN
cString = REPLACE(cString, '"', '''')
cString = REPLACE(cString, "&", "&")
cString = REPLACE(cString, "<", "<")
cString = REPLACE(cString, ">", ">")
cString = REPLACE(cString, " ", " ") /*  */
cString = REPLACE(cString, "¡", ";")
cString = REPLACE(cString, "¢", "c")
cString = REPLACE(cString, "£", "£")
cString = REPLACE(cString, "¤", "")
cString = REPLACE(cString, "¥", "")
cString = REPLACE(cString, "¦", "")
cString = REPLACE(cString, "§", "§")
cString = REPLACE(cString, "¨", "")
cString = REPLACE(cString, "©", "(c)")
cString = REPLACE(cString, "ª", "")
cString = REPLACE(cString, "«", "<")
cString = REPLACE(cString, "¬", "-")
cString = REPLACE(cString, "­", "-")
cString = REPLACE(cString, "®", "(r)")
cString = REPLACE(cString, "¯", "-")
cString = REPLACE(cString, "°", "")
cString = REPLACE(cString, "±", "+/-")
cString = REPLACE(cString, "²", "2")
cString = REPLACE(cString, "³", "3")
cString = REPLACE(cString, "´", "'")
cString = REPLACE(cString, "µ", "y")
cString = REPLACE(cString, "¶", "P")
cString = REPLACE(cString, "·", ".")
cString = REPLACE(cString, "¸", "")
cString = REPLACE(cString, "¹", "1")
cString = REPLACE(cString, "º", "")
cString = REPLACE(cString, "»", ">")
cString = REPLACE(cString, "¼", "1/4")
cString = REPLACE(cString, "½", "1/2")
cString = REPLACE(cString, "¾", "3/4")
cString = REPLACE(cString, "¿", "?")
cString = REPLACE(cString, "À", "A")
cString = REPLACE(cString, "Á", "A")
cString = REPLACE(cString, "Â", "A")
cString = REPLACE(cString, "Ã", "A")
cString = REPLACE(cString, "Ä", "Ae")
cString = REPLACE(cString, "Å", "A")
cString = REPLACE(cString, "Æ", "Ae")
cString = REPLACE(cString, "Ç", "C")
cString = REPLACE(cString, "È", "E")
cString = REPLACE(cString, "É", "E")
cString = REPLACE(cString, "Ê", "E")
cString = REPLACE(cString, "Ë", "E")
cString = REPLACE(cString, "Ì", "I")
cString = REPLACE(cString, "Í", "I")
cString = REPLACE(cString, "Î", "I")
cString = REPLACE(cString, "Ï", "I")
cString = REPLACE(cString, "Ð", "D")
cString = REPLACE(cString, "Ñ", "N")
cString = REPLACE(cString, "Ò", "O")
cString = REPLACE(cString, "Ó", "O")
cString = REPLACE(cString, "Ô", "O")
cString = REPLACE(cString, "Õ", "O")
cString = REPLACE(cString, "Ö", "Oe")
.
ASSIGN 
cString = REPLACE(cString, "×", "x")
cString = REPLACE(cString, "Ø", "0")
cString = REPLACE(cString, "Ù", "U")
cString = REPLACE(cString, "Ú", "U")
cString = REPLACE(cString, "Û", "U")
cString = REPLACE(cString, "Ü", "Ue")
cString = REPLACE(cString, "Ý", "Y")
cString = REPLACE(cString, "Þ", "p")
cString = REPLACE(cString, "ß", "ss")
cString = REPLACE(cString, "à", "a")
cString = REPLACE(cString, "á", "a")
cString = REPLACE(cString, "â", "a")
cString = REPLACE(cString, "ã", "a")
cString = REPLACE(cString, "ä", "ae")
cString = REPLACE(cString, "å", "a")
cString = REPLACE(cString, "æ", "ae")
cString = REPLACE(cString, "ç", "c")
cString = REPLACE(cString, "è", "e")
cString = REPLACE(cString, "é", "e")
cString = REPLACE(cString, "ê", "e")
cString = REPLACE(cString, "ë", "e")
cString = REPLACE(cString, "ì", "i")
cString = REPLACE(cString, "í", "i")
cString = REPLACE(cString, "î", "i")
cString = REPLACE(cString, "ï", "i")
cString = REPLACE(cString, "ð", "a")
cString = REPLACE(cString, "ñ", "n")
cString = REPLACE(cString, "ò", "o")
cString = REPLACE(cString, "ó", "o")
cString = REPLACE(cString, "ô", "o")
cString = REPLACE(cString, "õ", "o")
cString = REPLACE(cString, "ö", "oe")
cString = REPLACE(cString, "÷", "/")
cString = REPLACE(cString, "ø", "0")
cString = REPLACE(cString, "ù", "u")
cString = REPLACE(cString, "ú", "u")
cString = REPLACE(cString, "û", "u")
cString = REPLACE(cString, "ü", "ue")
cString = REPLACE(cString, "ý", "y")
cString = REPLACE(cString, "þ", "p")
cString = REPLACE(cString, "ÿ", "y")
cOutString = cString
.

RETURN.