Mensajes

  FUNCTION invertir(n INTEGER) RETURN INTEGER deterministic AS
    vnumDig      integer;
    vnuParEntera pls_integer;
  BEGIN
    vnuParEntera := trunc(n, 0);
    vnumDig      := fnugetNumOfDig(vnuParEntera);--esta es una funcion que me obtiene el numero de digito
    if vnumDig = 1 then
      return vnuParEntera;
    end if;
    return(vnuParEntera mod 10) * Power(10, vnumDig - 1) + invertir(vnuParEntera / 10);
  END invertir;

Esta funcion utilizando la misma logica de recursividad de la idea original funciona
FUNCTION invertir(n INTEGER) RETURN INTEGER deterministic AS
    vnumDig      integer;
    vnuParEntera pls_integer;
  BEGIN
    vnuParEntera := trunc(n, 0);
    vnumDig      := fnugetNumOfDig(vnuParEntera);--esta es una funcion que me obtiene el numero de digito
    if vnumDig = 1 then
      return vnuParEntera;
    end if;
    return(vnuParEntera mod 10) * Power(10, vnumDig - 1) + invertir(vnuParEntera / 10);
  END invertir;