Try this:
Code:
CREATE OR REPLACE FUNCTION isnumber(strn_len IS VARCHAR2)
    RETURN IS
    retvar 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 - ' || SQLERRM);
END;