获取Oracle过程中的OUT SYS_REFCURSOR值

一个项目中的实例：获取Oracle过程中的返回SYS_REFCURSOR。注意：如果SYS_REFCURSOR为一个表或视图。可以通过表名%ROWTYPE获取每行数据，而不必另外定义type。

原过程大致如下：

PROCEDURE P_USER_LOGIN(P_USERLOGINID IN VARCHAR2,P_PASSWORD IN VARCHAR2,P_SHOPID IN VARCHAR2,P_CURSOR OUT SYS_REFCURSOR) AS
   ----.......

OPEN P_CURSOR FOR
         SELECT r_UserList.Userid           AS USERID,
                r_UserList.Userloginid      AS USERLOGINID,
                r_UserList.Username         AS USERNAME,
                r_UserList.Usertype         AS USERTYPE,
                r_UserList.Isposer          AS Isposer,
                r_UserShopRole.Posroleid    AS Posroleid,
                r_UserShopRole.Roleid       AS ROLEID,
                r_RoleList.Rolename         AS ROLENAME,
                l_Info                      AS INFO
           FROM dual;
  ----.......

测试：

/*
--以下为检测登录的demo语句
declare
  type_cur SYS_REFCURSOR;
  -- T_ROW type_cur%ROWTYPE;
  type Type_ROW  is record(
  USERID      nvarchar2(30),
  USERLOGINID nvarchar2(30),
  USERNAME    nvarchar2(30),
  USERTYPE    nvarchar2(20),
  Isposer     nvarchar2(10),
  Posroleid   nvarchar2(10),
  ROLEID      nvarchar2(10),
  ROLENAME    nvarchar2(30),
  INFO        nvarchar2(500)
  );
  T_Row Type_ROW;
 
    
begin

DBUSRMCC.LOGIN_MANAGER.P_USER_LOGIN('235',
                             '0201F1233',
                             'A00001',
                             type_cur);
 LOOP  
    FETCH type_cur  INTO T_ROW;  
    EXIT WHEN type_cur%NOTFOUND;  
    DBMS_OUTPUT.PUT_LINE(T_ROW.USERLOGINID||':'||T_ROW.INFO );  
   
  END LOOP;  
  CLOSE type_cur;  ----必须要明确的关闭游标  
end;