Exception handler is not working

Question

Hi fellas,
My function works fine when the entered username and password are correct. I'm trying to figure out why my exception handler is not displaying the contents of the DBMS_OUTPUT.PUT_LINE when the username or password are not correct. Any ideas?
Thanks,
Mat
VARIABLE g_output VARCHAR2(30)
VARIABLE g_username VARCHAR2(8)
VARIABLE g_password VARCHAR2(8)
VARIABLE g_ck CHAR
BEGIN
:g_username := 'gma1';
:g_password := 'gofy';
:g_ck := 'N';
END;
CREATE OR REPLACE PACKAGE login_pkg IS
FUNCTION log_in_pf
(p_username IN VARCHAR2,
p_password IN VARCHAR2,
p_ck IN OUT CHAR)
RETURN CHAR;
END;
CREATE OR REPLACE PACKAGE BODY login_pkg IS
FUNCTION log_in_pf
(p_username IN VARCHAR2,
p_password IN VARCHAR2,
p_ck IN OUT CHAR)
RETURN CHAR
IS
lv_username_txt bb_shopper.username %TYPE;
lv_password_txt bb_shopper.password%TYPE;
BEGIN
SELECT username, password
INTO lv_username_txt, lv_password_txt
FROM bb_shopper
WHERE username = p_username
AND password = p_password;
IF lv_username_txt||lv_password_txt = p_username||p_password THEN
p_ck := 'Y';
ELSE p_ck := 'N';
END IF;
RETURN p_ck;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('Invalid username or password');
END log_in_pf;
END;
BEGIN
:g_output := login_pkg.log_in_pf(:g_username, :g_password, :g_ck);
END;
BEGIN
ERROR at line 1:
ORA-06503: PL/SQL: Function returned without value
ORA-06512: at "SCOTT.LOGIN_PKG", line 23
ORA-06512: at line 2
Edited by: Mathew2 on Jul 20, 2009 3:20 AM

Answer 1

Change your package defination too::
CREATE OR REPLACE PACKAGE BODY login_pkg
IS
   FUNCTION log_in_pf (
      p_username   IN       VARCHAR2,
      p_password   IN       VARCHAR2,
      p_ck         IN OUT   CHAR
      RETURN CHAR
   IS
      lv_username_txt   bb_shopper.username%TYPE;
      lv_password_txt   bb_shopper.PASSWORD%TYPE;
   BEGIN
      SELECT username, PASSWORD
        INTO lv_username_txt, lv_password_txt
        FROM bb_shopper
       WHERE username = p_username AND PASSWORD = p_password;
      IF lv_username_txt || lv_password_txt = p_username || p_password
      THEN
         p_ck := 'Y';
      ELSE
         p_ck := 'N';
      END IF;
      RETURN p_ck;
   EXCEPTION
      WHEN NO_DATA_FOUND
      THEN
         DBMS_OUTPUT.put_line ('Invalid username or password');
        return 'N' ;   --Added return statement as also mentioned in other post.
   END log_in_pf;
END;