另外几个不错的网址：
oracle存储过程常用技巧 基础知识介绍，非常有用
http://www.cnblogs.com/chinafine/archive/2010/07/12/1776102.html
oracle 存储过程 动态sql语句
http://www.cnblogs.com/zmlctt/p/3750198.html
Oracle 存储过程 动态sql执行
http://blog.csdn.net/pioayang/article/details/23853477
SQL> select * from acctinactprocess;
MEDIUMID ACCTNBR VOUCHNBR
--------------------------------------- --------------------------------------- ---------------------------------------
1 123 12
2 222 34
SQL> select * from vouchinfo;
VOUCHNBR VOUCHNAME
--------------------------------------- ----------
12 VCHE
create or replace procedure proc_nest_cursor
cursor cur_acctinactprocess is select mediumid,acctnbr,vouchnbr from acctinactprocess;
v_mediumid ACCTINACTPROCESS.MEDIUMID%type;
v_acctnbr ACCTINACTPROCESS.Acctnbr%type;
v_vouchnbr ACCTINACTPROCESS.Vouchnbr%type;
v_vouchname vouchinfo.vouchname%type;
cursor cur_vouchinfo(lvsvouchnbr vouchinfo.vouchnbr%type) is select vouchnbr,vouchname from vouchinfo where vouchnbr=lvsvouchnbr;
begin
open cur_acctinactprocess;
fetch cur_acctinactprocess
v_mediumid,
v_acctnbr,
v_vouchnbr;
exit when cur_acctinactprocess%notfound;
dbms_output.put_line('外层循环开始: '||'介质号:'||v_mediumid||' 账号:'||v_acctnbr||' 凭证号:'||v_vouchnbr);
dbms_output.put_line('内层循环开始');
--内层游标以外层游标的数据为基础，如果匹配外层游标，就进入内层游标进行处理，如果匹配不上外层游标，不进入内层游标（这个工作，由内层游标的exit when cur_vouchinfo%notfound)
--以前我理解这种判断机制要用if else来作，看来是多此一举了．
open cur_vouchinfo(v_vouchnbr);
fetch cur_vouchinfo
v_vouchnbr,
v_vouchname;
exit when cur_vouchinfo%notfound;
dbms_output.put_line('内层循环的值: '||' 凭证号:'||v_vouchnbr||' 凭证名称'||v_vouchname);
end loop;
close cur_vouchinfo;
end loop;
close cur_acctinactprocess;
外层循环开始: 介质号:1 账号:123 凭证号:12
内层循环开始
内层循环的值: 凭证号:12 凭证名称VCHE
外层循环开始: 介质号:2 账号:222 凭证号:34
内层循环开始
PL/SQL procedure successfully completed
业务逻辑的处理流程一定要清晰理解，具体就是多个游标间的逻辑关系：是平行或是父子级别的关系;如果采用平行关系；会导致重复数据的多次打开，减慢效率
游标的参数化一定要好好理解，具体就是游标的参数究竟要几个，以什么为准．这个要和业务理解关联起来．参数化可以让游标的结果是动态化的．游标参数相当
于where条件,不同的where条件每次输入不同的值，显示结果当然不同了．不就动态了
实战实战太重要，仅看是远远不够的．先模仿优秀的写法，然后变成自己的，当然这个过程要一些时间了．
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员
