PACKAGE,存储过程问题.

Question

create or replace procedure 
t(P_ID IN NUMBER) 
as
p_type varchar2;begin
 select c into p_type from test2
 where a=P_id; 
if  p_type='happy'
 then
 br.t(P_id);
end if;
 
end;上面的PRO错误,请问是什么原因.create or replace package body br isprocedure t(P_ID IN NUMBER) isCURSOR REMARK IS 
SELECT a,b 
FROM test2 
WHERE a = P_ID; begin
  FOR j in re loop update test3 set d= 
(select b from test2 
where a=j.a) 
where c=j.a ;end loop; 
commit;
end t;procedure t1(P_ID IN NUMBER) as
p_type varchar2;
begin
 select c into p_type from test2
 where a=P_id; 
if  p_type='happy'
 then
 br.t(P_id);
 else 
 reture;
end if;
 
end;end br;

Answer 1

procedure t1(P_ID IN NUMBER) as 
p_type varchar2(255); 
begin 
select c into p_type from test2 
where a=P_id; 
if  p_type='happy' 
then 
br.t(P_id); 
else 
reture; 
end if; end; end br;

Answer 2

create or replace procedure 
procedure t(P_ID IN NUMBER) 
as 
p_type varchar2; begin 
select c into p_type from test2 
where a=P_id; 
if  p_type='happy' 
then 
br.t(P_id); 
end if; end;