Try this.

Code:
CREATE OR REPLACE FUNCTION isnumber(strn_len IN VARCHAR2)
    RETURN BINARY_INTEGER
IS
    retvar BINARY_INTEGER;
BEGIN
    select decode(translate(strn_len,'1234567890','N'),'N',1,0)
    into retvar
    from dual;
    RETURN retvar;
EXCEPTION WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('Error - ' || SQLCODE ||
                         ' == '     || SQLERRM );
    RAISE;
END;
/