ORACLE下存储过程返回查询结果

/***
存储过程名称：
p_GroupScore
说明：
团队业绩统计
调用主存储过程:
手工调用
CALL p_GroupScore('E000100')
参数传递:
测试在SQL*PLUS下进行
VAR r refcursor;
Exec p_GroupScore(32,'E000100',:r);
print r;

原型示例
create or replace procedure p_test(p_cur out sys_refcursor)
as
begin
open p_cur for
select '001' XH,'自动化工程系' DM from DUAL
UNION
select '002' XH,'计算机工程系' DM from DUAL
UNION
select '003' XH,'机械工程系' DM from DUAL;
end p_test;

测试在SQL*PLUS下进行
VAR r refcursor;
Exec p_test(:r);
print r;

***/

CREATE OR REPLACE PROCEDURE p_GroupScore(uISSUE NUMBER,uPID IN VARCHAR2,p_cur out sys_refcursor)
AS
BEGIN
IF (uPID = 'E000100') THEN
-- 徐桂玲团队
OPEN p_cur for
SELECT FGRADE,FTYPE,SUM(FCOIN) FROM APP_DETAILS WHERE FISSUE = uISSUE AND FTYPE <> '购物币'
AND
FPID IN
(
SELECT FCPID FROM APP_FCT WHERE FFPID = 'E888888' GROUP BY FCPID
UNION
SELECT 'E000100' FROM DUAL
UNION
SELECT 'E888888' FROM DUAL
)
GROUP BY FGRADE,FTYPE
UNION
SELECT FGRADE,FTYPE,SUM(FCOIN) FROM APP_DETAILS WHERE FISSUE = uISSUE AND FTYPE = '店补'
AND
FPID IN
(
SELECT FGETMID(FCPID) FROM
(
SELECT FCPID FROM APP_FCT WHERE FFPID = 'E888888' GROUP BY FCPID
UNION
SELECT 'E000100' FROM DUAL
UNION
SELECT 'E888888' FROM DUAL
)
)
GROUP BY FGRADE,FTYPE
ORDER BY FGRADE;
ELSE
OPEN p_cur for
SELECT FGRADE,FTYPE,SUM(FCOIN) FROM APP_DETAILS WHERE FISSUE = uISSUE AND FTYPE <> '购物币'
AND
FPID IN
(
SELECT FCPID FROM APP_FCT WHERE FFPID = uPID GROUP BY FCPID
UNION
SELECT uPID FROM DUAL
)
GROUP BY FGRADE,FTYPE
UNION
SELECT FGRADE,FTYPE,SUM(FCOIN) FROM APP_DETAILS WHERE FISSUE = uISSUE AND FTYPE = '店补'
AND
FPID IN
(
SELECT FGETMID(FCPID) FROM
(
SELECT FCPID FROM APP_FCT WHERE FFPID = uPID GROUP BY FCPID
UNION
SELECT uPID FROM DUAL
)
)
GROUP BY FGRADE,FTYPE
ORDER BY FGRADE;
END IF;
END p_GroupScore;