oracle 存储过程其中使用了游标例子

create or replace procedure PRC_analysis_alert is

  ---获得“预警研判分析-预警信息统计”结果 的游标
  cursor CRS_AlERT is
     select xzqh,zzjgdm,yjlx,substr(TJRQ,1,6) tjyf,clzt,sum(yjsl) yjsl
     from t_pvbdp_statistics_alert group by  xzqh,6),clzt ;

begin
  ----预警研判分析 - 预警信息统计
  execute immediate 'truncate table t_pvbdp_analysis_alert' ; 
  for alert_msg in CRS_AlERT loop 
    begin
      insert into t_pvbdp_analysis_alert
        (id,tjyf,xzqh,yjsl)
      values
        (sys_guid(),alert_msg.tjyf,alert_msg.xzqh,alert_msg.zzjgdm,alert_msg.yjlx,alert_msg.clzt,alert_msg.yjsl);
    end;
  end loop;

end PRC_analysis_alert;

原文地址：https://www.jb51.cc/oracle/210959.html