PLSQL存储过程及游标的使用

先贴代码出来，解释之后再写：

create or replace procedure AGENTOPER(
------------------------------------------------------
---个人工作量统计报表
------------------------------------------------------
  v_date                     in varchar2             --输入日期:yyyymmdd
)
as
  V_OPER               VARCHAR2(40)  :='';   --工号
  V_INTIMES            NUMBER(8)     :=0;    --接通次数
  V_OUTTIMES           NUMBER(8)     :=0;    --呼出次数
  V_INTIME             NUMBER(12)    :=0;    --平均通话时长
  V_OUTTIME            NUMBER(12)    :=0;    --平均时长
  V_TOTALTIME          NUMBER(16)    :=0;    --工作总时长
  V_FEELCOUNT          NUMBER(8)     :=0;    --满意度参与量
  V_FEELGOODCOUNT      VARCHAR2(12)  :='';   --满意度

  v_sql                varchar2(1000):='';
  v_curmonth           number(2);            --当前月份

  TYPE REF_CURSOR IS REF CURSOR;
    c_workcount REF_CURSOR;

begin

          delete from DB_AGENTOPER_STAT where substr(opertime,0,8) = v_date;

          commit;
          ------------------------------------------------------------------------
          --总数
          ------------------------------------------------------------------------
          open c_workcount for 'select  distinct oper from db_agent_operator g where 1=1 and substr(sid,1,8)='||v_date;