Duvida Localizar registro dentro de IF

@rafael.andrade
Não sei o que estou fazendo errado, mas chamando a função no display do browse, ocorre erro.

Função

Código:

RETURNS DECIMAL
    (input f-ferramenta as char):

    find first carac-tecn
         where carac-tecn.cd-equipto = f-ferramenta
           and carac-tecn.cd-folha   = "SAT"
           and carac-tecn.cd-comp    = "80" no-lock no-error.

    if avail carac-tecn then
        return carac-tecn.vl-result.
    else
        return 0.

END FUNCTION.

Chamada da função

Código:

fi-busca-carac(input oper-ord.ferramenta)