Error while compiling pl/sql programm

Question

Hi,
I am new to oracle, i am writing a procedure which return userId checking the userlogin table, but when i compile i am getting some wierd error, if any help to solve or tell me why this type error is happening, will be really helpfull.
thanks in advance
vijay
here is the procedure
create or replace procedure CheckLogin (
name in varchar2,
passwd in varchar2,
checkPasswd in number,
userId out number
is
count number;
userId number;
inactiveStatus number;
pswd varchar2(100);
userId number;
begin
select count(*) into count from OrgUsers where login = name;
if (count = 0) then
raise NO_USER_ERROR;
endif;
if ( count > 1) then
raise MORE_THAN_ONE_ERROR;
endif;
if (checkPasswd = 1) then
select password into pswd from OrgUsers where login = name;
if (passwd != pswd) then
raise PASSWD_ERROR;
endif;
endif;
select CheckLogin.userId into userId from OrgUsers where login = name;
return (userId);
exception
when NO_USER_ERROR THEN
RAISE_APPLICATION_ERROR(-20101, 'No user with the given name');
when MORE_THAN_ONE_ERROR then
RAISE_APPLICATION_ERROR(-20101, 'More than one user');
when passwd_error then
RAISE_APPLICATION_ERROR( -20101, "Password mismatch", true );
end;
Error message
LINE/COL ERROR
33/1 PLS-00103: Encountered the symbol "EXCEPTION" when expecting one
of the following:
begin declare else elsif end exit for goto if loop mod null
pragma raise return select update while <an identifier>
<a double-quoted delimited-identifier> <a bind variable> <<
close current delete fetch lock insert open rollback
savepoint set sql execute commit forall
<a single-quoted SQL string>
41/0 PLS-00103: Encountered the symbol "end-of-file" when expecting
one of the following:
LINE/COL ERROR
begin function package pragma procedure form

Answer 1

You have a number of errors in your procedure:
1) ENDIF should be END IF
2) Local variables with the same name as parameters
3) Reserverd word as variable (count)
4) User exceptions not declared (no_user_error, etc.)
I would suggest simplifying this as:
create or replace procedure CheckLogin
  p_login         in  orgusers.login%type,
  p_password      in  orgusers.password%type,
  p_checkpassword in  pls_integer,
  p_userid        out orgusers.userid%type
is
  v_password        orguser.password%type;
  e_password_error  exception;
begin
  select password, userid
    into v_password, p_userid
    from OrgUsers
   where login = p_login;
  if     (p_checkpassword = 1)
     and (p_password <> v_password) then
    raise e_password_error;
  end if;
exception
  when no_data_found then
    raise_application_error(-20101, 'No user with the given name');
  when too_many_rows then
    raise_application_error(-20102, 'More than one user');
  when e_password_error_error then
    raise_application_error(-20103, 'Password mismatch', true );
end;
/