存储过程返回结果集的方法有哪些？

Question

CREATE OR REPLACE PACKAGE PAC_Mycursor
AS
 TYPE QUERY_CURSOR IS REF CURSOR;PROCEDURE My_cur_out(
An_area_id IN number,
An_serv_id IN number,
result1 out QUERY_CURSOR);
END PAC_Mycursor;CREATE OR REPLACE PACKAGE BODY PAC_Mycursor
AS
PROCEDURE My_cur_out(
An_area_id IN number,
An_serv_id IN number,
result1 out QUERY_CURSOR
)
    AS
        BEGIN
            OPEN result1 FOR
SELECT SERV_ID, SERV_SEQ_NBR
from a
where area_id = An_area_id and serv_id > An_serv_id ;
        END;END PAC_Mycursor;