Sub query not allowed

Question

hi
I have a package
create package pack1
procedure proc1(empid varchar2(10),ename varchar2(20),joindate date,empcat varchar2(20))
is
begin
declare
cursor c1 is
select.....
begin
case when joindate>=(select joindate from empdetails where eid=empid)
dbms_output.put_line("not vaid");
when empcat not in(select ecat from empcategory where eid=empid)
dbms_output.put_line("not vaid");
end case
end proc1
end pack1
here for the case statements it says sub queries not allowed
can any one help what to do for validating input joindate and empcat.
Once they are invalid I should print error message and exit from the process
thank you

Answer 1

create package pack1
procedure proc1(empid varchar2(10),ename varchar2(20), ajoindate date,empcat varchar2(20))
is
-- begin
-- declare
valid number;
cursor c1 is
select.....
begin
select count(*)
into valid
from empdetails where eid=empid and ajointdate >= joindate;
if number > 0 then
dbms_output.put_line("not vaid");
end if;
select count(*)
into valid
from empcategory where eid=empid
and empcat = ecat;
if valid = 0 then
dbms_output.put_line("not vaid");
end if;
end proc1;
end pack1;