Segue um código para remover acentos de strings em progress… bem util.😀

Código
FUNCTION removeAcento RETURNS CHARACTER (INPUT pChar AS CHARACTER):
DEFINE VARIABLE iPos AS INTEGER NO-UNDO.
DO iPos = 1 TO LENGTH(pChar):
IF CAN-DO(“á,ã,â,à”,SUBSTRING(pChar,iPos,1)) THEN
ASSIGN SUBSTRING(pChar,iPos,1) = “a”.
END.

DO iPos = 1 TO LENGTH(pChar):
IF CAN-DO(“é,ê,è”,SUBSTRING(pChar,iPos,1)) THEN
ASSIGN SUBSTRING(pChar,iPos,1) = “e”.
END.

DO iPos = 1 TO LENGTH(pChar):
IF CAN-DO(“í,î,ì”,SUBSTRING(pChar,iPos,1)) THEN
ASSIGN SUBSTRING(pChar,iPos,1) = “i”.
END.

DO iPos = 1 TO LENGTH(pChar):
IF CAN-DO(“ó,õ,ô,ò”,SUBSTRING(pChar,iPos,1)) THEN
ASSIGN SUBSTRING(pChar,iPos,1) = “o”.
END.

DO iPos = 1 TO LENGTH(pChar):
IF CAN-DO(“ú,û,ù”,SUBSTRING(pChar,iPos,1)) THEN
ASSIGN SUBSTRING(pChar,iPos,1) = “u”.
END.

RETURN UPPER(pChar).

END FUNCTION.

Exemplo
MESSAGE removeAcento(“ÁCÁícáo”) VIEW-AS ALERT-BOX.

vlw