Oracle 返回结果集的 存储过程

create or replace
PROCEDURE SPGETROLELIST
(
  P_APPCODE IN VARCHAR2
, P_USERROLE IN VARCHAR2
, CUR_RESULT OUT SYS_REFCURSOR
) AS 

P_ApproveFlag char(1);  

BEGIN

    If P_USERROLE = 'M'  Then
        begin
        P_ApproveFlag := 'R';
        end;
    Else
        begin
        P_ApproveFlag := '';
        end;
    End If; 

    open CUR_RESULT for
    Select *
    From  Role
    Where AppCode = P_APPCODE
    And   (ApproveStatus = 'P' or ApproveStatus = P_ApproveFlag)
    And   (Status <> 'A' Or (Status = 'A' And ApproveStatus Is Not Null));  

    exception
    when no_data_found then
        open CUR_RESULT for
        select null
        from Role
        where 1 =2 ;

END SPGETROLELIST;