- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
create or replace FUNCTION ISNUMBER(test_str IN VARCHAR) RETURN INTEGER AS
i INTEGER;
num NUMBER;
BEGIN
select DECODE(INSTR(TRANSLATE(test_str,
'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ',
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'),'X'),0,1,0) INTO i
FROM DUAL;
RETURN i;
END;
/