获取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_RO