oralce中for 执行动态sql

[b]--oralce中 for 执行动态sql[/b]
CREATE OR REPLACE FUNCTION fun_checkguaranteetype(TranId varchar2)
return varchar2 is V_result varchar2(1000);
Begin
declare
zhiyavar NUMBER;
diyavar NUMBER;
dabaoren NUMBER;
v_sql varchar2(1000);
[b] --定义type[/b]
TYPE accountno_type IS TABLE OF actaccount.accountno%TYPE INDEX BY BINARY_INTEGER;
TYPE id_type IS TABLE OF bizpawn.id%TYPE INDEX BY BINARY_INTEGER;
[b] --集合列[/b]
accountno accountno_type;
id id_type;
begin
v_sql :='select p1.accountno accountno ,pawn.id id,pawn.nocredencemode nocredencemode from bizpawn pawn,(';
v_sql :=v_sql||' select act.relationaccountid,act.accountno from actaccount act where act.id in';
v_sql :=v_sql||'(select trans.accountid from acttransaction trans where trans.id in ('||TranId||')) ) p1 ';
v_sql :=v_sql||'where pawn.actaccountid=p1.relationaccountid';
[b]--执行动态sql[/b]
EXECUTE IMMEDIATE v_sql BULK COLLECT into accountno,id;
--for
for V1 IN 1 .. accountno.COUNT LOOP
[b] --获取值[/b]
dbms_output('accountno:'||accountno(v1)||'---id:'||id(v1));
END LOOP;
return (V_result);
end;
end fun_checkguaranteetype;