create or replace procedure P_TRAN_SIMULATION1
( v_ComputeDate1 in date, v_ComputeDate2 in date, r_cursor1 OUT sys_refcursor)/* Oracle：Authid Current_User的使用 我们知道，用户拥有的role权限在存储过程是不可用的。遇到这种情况，我们一般需要显式授权， 如grant create table to usera;但这种方法太麻烦，有时候可能需要进行非常多的授权才能执行存储过程， 实际上，oracle给我们提供了在存储过程中使用role权限的方法：修改存储过程，加入Authid Current_User时存储过程可以使用role权限。下面来举个例子： */authid current_user is vn_ctn number(2);begin select count(*) into vn_ctn from user_all_tables a where a.table_name like upper('tbl'); if vn_ctn > 0 then --多条件就用and 和or 来进行连接 execute immediate 'drop table tbl'; end if; execute immediate 'create table tbl(id1 number,id2 number)'; declare cashflowPOSITIVE NUMBER:=0; cashflowNEGATIVE NUMBER:=0; cursor mycur is select * from TRAN_CASH_FLOW where as_of_date = v_ComputeDate1 and payment_date >=v_ComputeDate1 and payment_date < v_ComputeDate2; cashFlowRow TRAN_CASH_FLOW%rowtype;begin open mycur; --打开游标 loop fetch mycur into cashFlowRow; --把游标所指的纪录放到变量中 exit when (mycur%notfound); --当游标没有指向行时退出循环 if cashFlowRow.cashflow_value>0 then cashflowPOSITIVE:=cashflowPOSITIVE+cashFlowRow.cashflow_value; else cashflowNEGATIVE:=cashflowNEGATIVE+cashFlowRow.cashflow_value; end if; end loop; -- dbms_output.put_line(cashflowPOSITIVE); close mycur; --关闭游标 execute immediate 'insert into tbl values('||cashflowPOSITIVE||','||cashflowNEGATIVE||')'; EXECUTE IMMEDIATE 'BEGIN OPEN :r_cursor1 FOR SELECT * FROM tbl; END;' using r_cursor1; close r_cursor1; end;--execute immediate的作用/* EXECUTE IMMEDIATE将不会提交一个DML事务执行如果通过EXECUTE IMMEDIATE处理DML命令，那么在完成以前需要显式提交或者作为EXECUTE IMMEDIATE自己的一部分.如果通过EXECUTE IMMEDIATE处理DDL命令,它提交所有以前改变的数据*/end ;调用存储过程的代码 call p_tran_simulation1(to_date('2015/03/09','yyyy/mm/dd'), to_date('2015/06/09','yyyy/mm/dd'));