SQL函数判断字符串是否为纯数字

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;