CREATE OR REPLACE FUNCTION IsNumber (str_ VARCHAR2) RETURN VARCHAR2
IS
str NUMBER;
BEGIN
str := to_number(str_);
RETURN '1';
EXCEPTION
WHEN OTHERS THEN RETURN '0';
END IsNumber;
-----------------------------------------------
select IsNumber('666aa') from dual;