PL/SQL Explicit Cursors,Error(3,15): PLS-00103

Question

I creat procedure as following:
PROCEDURE Proj_Using_Most_People_ByGender (TheGender Employee.Sex%Type)
IS
ProjIdWorks_On.Pno%TYPE;
ProjCnt number;
CURSOR Get_People_Involved(Gender IN Employee.Sex%Type)
IS
select w.Pno, count(*) as TotalPeople
from Works_On w, Employee e
where e.Sex = Gender
and e.Ssn = w.Essn
group by w.Pno
order by TotalPeople desc;
BEGIN
open Get_People_Involved(TheGender);
for i in 1..3 loop
fetch Get_People_Involved into ProjId, ProjCnt;
exit when Get_People_Involved%NOTFOUND;
dbms_output.put_line (' Project: ' || to_char(ProjId) ||
' Personnel: ' || to_char(ProjCnt) );
end loop;
close Get_People_Involved;
EXCEPTION
when others then
dbms_output.PUT_LINE ( 'Problems' );
END;
error is:
Error(3,15): PLS-00103: Encountered the symbol "." when expecting one of the following: constant exception <an identifier> <a double-quoted delimited-identifier> table LONG_ double ref char time timestamp interval date binary national character nchar The symbol "<an identifier>" was substituted for "." to continue.
Anybody can help me? Thanks a lot!

Answer 1

I didn't see a problem - except you should have
CREATE OR REPLACE PROCEDURE ... and not just PROCEDURE ...
SQL> create or replace PROCEDURE explitpro (TheGender Employee.Sex%Type) IS
  2  ProjId  Works_On.Pno%TYPE;
  3  ProjCnt number;
  4  CURSOR Get_People_Involved(Gender IN Employee.Sex%Type) IS
  5     select w.Pno, count(*) as TotalPeople
  6        from Works_On w, Employee e
  7        where e.Sex = Gender
  8          and e.Ssn = w.Essn
  9      group by w.Pno
10      order by TotalPeople desc;
11  BEGIN
12    open Get_People_Involved(TheGender);
13    for i in 1..3 loop
14       fetch Get_People_Involved into ProjId, ProjCnt;
15            exit when Get_People_Involved%NOTFOUND;
16       dbms_output.put_line (' Project: ' || to_char(ProjId) ||
17                             ' Personnel: ' || to_char(ProjCnt) );
18     end loop;
19     close Get_People_Involved;
20  EXCEPTION
21    when others then
22       dbms_output.PUT_LINE ( 'Problems' );
23  END;
24 /
Procedure created.
SQL> EXECUTE EXPLITPRO('F')
PL/SQL procedure successfully completed.