CREATE OR REPLACE PACKAGE   query_action_by_name   IS
     --声明游标映射
 TYPE refcorsor IS REF CURSOR;
     --声明存储过程
  PROCEDURE Find_by_name(username_str in USERACTION.USERNAME%TYPE, p_rtn_items OUT refcorsor);
end  query_action_by_name;
 
 --实现包体
 CREATE OR REPLACE PACKAGE BODY query_action_by_name IS
 PROCEDURE Find_by_name(username_str in USERACTION.USERNAME%TYPE, p_rtn_items OUT refcorsor)
      IS
begin
      open p_rtn_items  FOR SELECT * FROM actiontable  where username=username_str;
end
     END query_action_by_name;
 /我使用存储过程要做的事情是:
根据用户名来查找表中的内容能够,然后将查找到的内容通过游标来返回。包的创建是正确的,但包体的实现时,总是说什么“create”有问题,请高手帮忙改正一下