存储过程中使用游标嵌套

    涉及嵌套使用cursor的问题，保留下以供以后查看。

    外层cursor查询的结果作为内层cursor的一个参数，在每次内循环之前生成需要的sql。这里使用了replace将字符替换为外层cursor查询的参数。

   统计结果执行 execute immediate 插入表中。

create or replace procedure pday_staticsc(vv_yyyy        varchar2,                                          vv_mm          varchar2,                                          static_intdate int default 0,                                          static_object  varchar2 default NULL) as  -----------------------------------------------------------------  /*--FUNC：通道日统计  入参说明：static_intdate：统计时间，如:19990112,调用者需要对时间进行核对,不输入此参数对昨天统计         static_object： 统计对象，如:'Kas12yWp'，不输入此参数对所有对象统计*/  -----------------------------------------------------------------  rel_date     smallint;  rel_monstart smallint;  dflag        smallint;  static_sname char(24) default NULL;  vv_sql       VARCHAR2(8000); --存储sql代码  v_sql       VARCHAR2(4000); --存储sql代码  vv_yyyymm    varchar2(6);  on_line      float; --存储在线时间  out_line     float; --存储离线时间  out_times    smallint; --存储离线次数  vv_type      smallint; --存储在线、离线类型号  vv_time      date;  cnt          smallint;  vv_type2 smallint;  vv_date date;  type cur is ref cursor;  c1 cur;  --declare  cursor cur_td is    select 代码 as codes  from 通道参数表;begin  --统计在线、离线   if (static_intdate = 0 or static_intdate is null ) then    rel_date := to_char(sysdate - 1, 'yyyyMMdd');  --else   -- rel_date := floor(to_date(static_intdate, 'YYYYMMDD') -                     -- to_date('19700101', 'YYYYMMDD'));  end if; rel_monstart := floor(sysdate- to_date('19700101', 'YYYY-MM-DD hh24:mi:ss'))-1;  --vv_yyyymm    := vv_yyyy || vv_mm;   vv_yyyymm:= to_char(sysdate-1,'YYYYMM');  --open cur_td;  for cur_row in cur_td loop    on_line   := 0;    out_line :=0;    out_times := 0;    cnt       := 1;    vv_type :=0;    vv_time:=to_date('19700101','yyyy-mm-dd hh24:mi:ss');     vv_sql := 'select 当前状态值 type,to_date(substr(年月日*1000000000+时分秒毫秒,1,14),''yyyy-mm-dd hh24:mi:ss'') time                    from (select 事件对象名0, 当前状态值,年月日,时分秒毫秒                           from (select rownum r_no  ,s.事件对象名0,s.当前状态值,s.年月日,s.时分秒毫秒 from  历史事项表 s                              where  s.事件类型=1004 and  s.事件对象名0 in ('':1'') and s.年月日<' ||rel_date || '                      order by s.年月日 desc ) row_no where r_no=1                  union  select s.事件对象名0,s.当前状态值,s.年月日,s.时分秒毫秒                    from  历史事项表 s where  s.事件类型=1004                     and s.年月日='|| rel_date || '                     and s.事件对象名0 in ('':1'') ) order by 年月日,时分秒毫秒';    vv_sql := replace(vv_sql,':1',cur_row.codes);    open c1  for vv_sql ;    fetch c1 into vv_type2,vv_date ;      while not c1%NOTFOUND loop      if cnt = 1 then        --判断是否第一条数据        if vv_type2 = 2 then          --第一条数据是上线，取时间：零点          vv_type := 2;          vv_time := to_date(rel_date, 'yyyy-mm-dd hh24:mi:ss');        end if;      else        --不是第一条数据        if vv_type = 2   then          --前一条数据是上线          on_line := on_line + round((vv_date - vv_time) * 24 * 60 * 60); --计算在线时间          vv_type := 0; --计算完之后赋值:0        end if;              if vv_type2 = 2 then          --当前是上线，则赋值          vv_type := 2;          vv_time := vv_date;        else          if vv_type2=3  then          --当前不是上线，则离线次数+1          out_times := out_times + 1;          end if;        end if;      end if;      cnt := cnt + 1;             fetch c1 into vv_type2,vv_date ;    end loop;    close c1;    if vv_type = 2 then      --判断最后一天记录是否是上线      on_line := on_line + round((to_date(rel_date, 'yyyy-mm-dd hh24:mi:ss') -                                 vv_time + 1) * 24 * 60 * 60 - 1);    else if vv_type = 3 and cnt>2  then        out_times := out_times + 1;            end if;                           end if;    on_line  := trunc(on_line / 3600, 3);    out_line := 24 - on_line;    --on_line:=24-out_line;    v_sql   := 'insert into dayport' || vv_yyyymm ||                ' (sname,sdate,time,ontime,offtime,offtimes) values ('''|| cur_row.codes ||''','||rel_monstart||',0,'||on_line||','||out_line||','||out_times||') ';      EXECUTE IMMEDIATE v_sql;             end loop;  --close cur_td;  commit;end;