//****************************************************************************
// $Module type: Package
// $Module name: RemoveExtChars
// $Author     : Nils G. Svedmyr
// Created     : 2003-05-08 @ 15:14
//
// Description :
//
// $Rev History:
//    2003-05-08  Module header created
//****************************************************************************

// What it does: Replaces extended characters (values above 127) with an underscore "_" character
// Parameter: String
// Returns:   String
Function RemoveExtendedChars String sValue Returns String
  Integer iLen iCount
  String sChar
  Move (Trim(sValue))   To sValue
  Move (Length(sValue)) To iLen
  For iCount From 1 To iLen
    Move (Mid(sValue, 1, iCount)) To sChar
    If (Ascii(sChar) > 127) Move (Replaces(sChar, sValue, "_")) To sValue
  Loop // For iCount from 1 to iLen
  Function_Return sValue
End_Function // RemoveExtChars