oracle存储过程返回集合的问题

[linsr]

例子调试没有通过，为什么，大家帮我看看：
create procedure list_early_deaths () return ref cursor as
declare
toesup ref cursor;
begin
open toesup for
SELECT poets.name, deaths.age
FROM poets, deaths
-- all entries in deaths are for poets.
-- but the table might become generic.
WHERE poets.id = deaths.mort_id
AND deaths.age < 60;
return toesup;
end;

错误提示：
Compilation errors for PROCEDURE ZKHX.LIST_EARLY_DEATHS

Error: PLS-00103: 出现符号 ")"在需要下列之一时：
<an identifier>
<a double-quoted delimited-identifier>current
Line: 1
Text: create procedure list_early_deaths() return ref cursor as

[dinya2003]

--包头
create or replace package pkg_test
as
type myCursor is ref cursor;

end pkg_test;


create procedure list_early_deaths(refcursor_name out pkg_test.myCursor) as
toesup pkg_test.myCursor;
begin
open toesup for
SELECT poets.name, deaths.age
FROM poets, deaths
WHERE poets.id = deaths.mort_id
AND deaths.age < 60;
return toesup;
end;

[ineedtostudy]

在包头里预定义一个ref cursor类型，然后在存储过程里使用自己定义的类型就可以了

[linsr]

不行啊，提示错误信息：
Compilation errors for PROCEDURE ZKHX.LIST_EARLY_DEATHS

Error: PLS-00372: 在一个过程中，RETURN 语句无法包含表达式
Line: 9
Text: return toesup;

Error: PL/SQL: Statement ignored
Line: 9
Text: return toesup;

[linsr]

然后如何调用，返回的是什么？分数不够，可以再加，大家踊跃参加

[ggyy2002]

你用什么编程

[linsr]

plsqldev 开发工具

[linsr]

我的QQ 304522028

[linsr]

急需帮助，加我QQ 304522028

[ggyy2002]

客户端用的什么开发软件？

[zhbname]

你這是用函數

[ggyy2002]

定义包：
CREATE OR REPLACE PACKAGE "HOTEL_USER"."HOTEL_PACKET" as
TYPE myrctype IS REF CURSOR;

end;



定义过程：

CREATE OR REPLACE PROCEDURE "HOTEL_USER"."CT_GET_CPXM_LIST" (
p_rc out Hotel_Packet.myrctype
)
as
sqlstr varchar(500);

begin

sqlstr := 'select * from new_ct_cpxm';

OPEN p_rc FOR sqlstr;
end;

[qingqingfish]

function 包含return子句，function好像没有吧

[liuyi8903]

有

[liuyi8903]

up dinya2003(OK) and ggyy2002(我曾经是个高手)