create or replace procedure getidlist
isl_idlist varchar2(200);
beginl_idlist:='1,2,3,4';for brrs in (select * from bldroom where bldroomid in (l_idlist))loopbrrs.structure:='钢混';end loop;
end;
/
show err;

CREATE OR REPLACE TYPE type_split IS TABLE OF VARCHAR2 (4000);

create or replace function split(p_list varchar2,p_sep varchar2 := ',') return type_split pipelined
IS l_idx pls_integer; v_list varchar2(50) := p_list; begin loop l_idx := instr(v_list,p_sep); if l_idx > 0 then pipe row(substr(v_list,1,l_idx-1)); v_list := substr(v_list,l_idx+length(p_sep)); else pipe row(v_list); exit; end if; end loop; return; end split;

create or replace procedure getidlist
isl_idlist varchar2(200);
beginl_idlist:='1,2,3,4';for brrs in (select * from bldroom where bldroomid in (select column_value from table(split(l_idlist,','))))loopbrrs.structure:='钢混';end loop;
end;
/
show err;

create or replace procedure getidlist
isbrRow    bldroom%rowtype;l_idlist varchar2(200);
beginl_idlist:='1,2,3,4';for idrs in (select column_value from table(split(l_idlist,',')))loopselect * into brRow from bldroom where bldroomid=idrs.column_value;brRow.structure:='ssss';end loop;
end;
/
show err;

/*
利用table()函数，我们可以将PL/SQL返回的结果集代替table。
oracle内存表在查询和报表的时候用的比较多，它的速度相对物理表要快几十倍。
*/
/*
simple example：
1、table()结合数组：
*/create or replace type t_test as object(
id integer,
rq date,
mc varchar2(60)
);create or replace type t_test_table as table of t_test;create or replace function f_test_array(n in number default null) return t_test_table
as
v_test t_test_table := t_test_table();
begin
for i in 1 .. nvl(n,100) loop
v_test.extend();
v_test(v_test.count) := t_test(i,sysdate,'mc'||i);
end loop;
return v_test;
end f_test_array;
/select * from table(f_test_array(10));select * from the(select f_test_array(10) from dual);/*
2、table()结合PIPELINED函数：
*/create or replace function f_test_pipe(n in number default null) return t_test_table PIPELINED
as
v_test t_test_table := t_test_table();
begin
for i in 1 .. nvl(n,100) loop
pipe row(t_test(i,sysdate,'mc'||i));
end loop;
return;
end f_test_pipe;
/select * from table(f_test_pipe(20));select * from the(select f_test_pipe(20) from dual);/*
3、table()结合系统包：
*/create table test (id varchar2(20));
insert into test values('1');
commit;
explain plan for select * from test;
select * from table(dbms_xplan.display);