CREATE OR REPLACE FUNCTION ISNUMBER(P_STRING IN VARCHAR) RETURN VARCHAR
AS
    V_RETORNO VARCHAR2(01);
    V_NRTESTE NUMBER;
BEGIN
   BEGIN
      V_NRTESTE := TO_NUMBER(P_STRING);
      V_RETORNO := 'S';
   EXCEPTION
      WHEN OTHERS THEN
         V_RETORNO := 'N';
   END;
   RETURN V_RETORNO;
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('ISNUMBER','6.05.xxx'); END;
/

