Comparar dois Campos do Tipo CHar

fiz um bloquinho rápido testa aí


/*
1) Passar o valor do banco
2) Passar a literal a ser pesquisada
*/
RUN testa-valores (INPUT "produto 100 ml",
INPUT "100ml").
IF RETURN-VALUE = "OK" THEN
MESSAGE "Achou"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
ELSE
MESSAGE "NÆo Achou"
VIEW-AS ALERT-BOX INFO BUTTONS OK.


procedure testa-valores:
def input param p-valor-base as char no-undo.
def input param p-compare as char no-undo.
def var i-cont as int no-undo.

do i-cont = 1 to num-entries(p-compare, " "):
run valida-literal (input p-valor-base, /*Valor original do banco*/
input entry(i-cont, p-compare, " ") /*valor a ser comparado*/ ).

MESSAGE entry(i-cont, p-compare, " ")
VIEW-AS ALERT-BOX INFO BUTTONS OK.

if return-value = "NOK" then
return "NOK".
end.

return "OK".

end procedure.

procedure valida-literal:
def input param p-valor-base as char no-undo.
def input param p-compare as char no-undo.

if p-valor-base matches("*" + p-compare + "*") then
return "OK".
else
return "NOK".
end procedure.