Oracle中函数/过程返回多个值（结果集）

CREATE OR REPLACE FUNCTION A_Test(orType varchar2)
RETURN SYS_REFCURSOR is
    type_cur SYS_REFCURSOR;
BEGIN
    OPEN type_cur FOR select col1,col2,col3 from testTable ;
    RETURN  type_cur;
END;

CREATE OR REPLACE TYPE "SPLIT_ARR"  AS OBJECT(nowStr varchar2(18))

CREATE OR REPLACE TYPE "SPLIT_TAB" AS TABLE of split_arr;

CREATE OR REPLACE FUNCTION GetSubStr(str       in varchar2, --待分割的字符串                   
                                     splitchar in varchar2 --分割标志             
                                     ) return split_tab IS
  restStr  varchar2(2000) default GetSubStr.str; --剩余的字符串               
  thisStr  varchar2(18); --取得的当前字符串               
  indexStr int; --临时存放分隔符在字符串中的位置                             
  v        split_tab := split_tab(); --返回结果              
begin
  dbms_output.put_line(restStr);
  while length(restStr) != 0 LOOP
    <<top>>
    indexStr := instr(restStr, splitchar); --从子串中取分隔符的第一个位置                       
    if indexStr = 0 and length(restStr) != 0 then
      --在剩余的串中找不到分隔符                         
      begin
        v.extend;
        v(v.count) := split_arr(Reststr);
        return v;
      end;
    end if;
    if indexStr = 1 then
      ---第一个字符便为分隔符,此时去掉分隔符                         
      begin
        restStr := substr(restStr, 2);
        goto top;
      end;
    end if;
    if length(restStr) = 0 or restStr is null then
      return v;
    end if;
    v.extend;
    thisStr := substr(restStr, 1, indexStr - 1); --取得当前的字符串                      
    restStr := substr(restStr, indexStr + 1); ---取剩余的字符串                       
    v(v.count) := split_arr(thisStr);
  END LOOP;
  return v;
end;

cursor strcur is select nowStr from Table(GetSubStr(‘111,222,333,,,‘,‘,‘));

create type row_type as object
(
  a varchar2(10),
  v varchar2(10)
)
; --定义行对象         
create type table_type as table of row_type; --定义表对象        
create or replace function test_fun(a in varchar2, b in varchar2)
return table_type pipelined is v row_type; --定义v为行对象类型         
begin
    for thisrow in (select a, b from mytable where col1 = a and col2 = b) loop 
        v := row_type(thisrow.a, thisrow.b);
        pipe row(v); 
    end loop; 
    return;
end; 
select * from table(test_fun(‘123‘, ‘456‘));