mysql 使用游标进行删除操作的存储过程

BEGIN
  DECLARE  hprocessInstanceId bigint DEFAULT 0; -- 历史流程实例id
  DECLARE  hprocessInstanceIdStarttime CHAR default '';  -- 历史流程实例启动时间
  DECLARE  hprocessInstanceIdEndtime CHAR default '';  -- 历史流程实例结束时间
  
  DECLARE  hactinstId BIGINT default 0;  -- 历史活动实例id
  
  DECLARE  htaskId BIGINT default 0;  -- 历史人工任务id
  
  DECLARE  hvarId BIGINT default 0;  -- 历史流程变量id

  DECLARE  rexecutionId bigint  default 0; -- 正在运行流程实例id

  DECLARE  rvarId bigint  default 0; -- 正在运行流程变量id

  DECLARE  rtaskId bigint  default 0; -- 正在运行人工任务id

  DECLARE  rswinmlanceId bigint  DEFAULT 0; -- 泳道id，为了删除partation表记录。本项目无记录

  DECLARE  processCompleteFlag int default 0; --  流程是否结束标识
  DECLARE  taskCompleteFlag int default 0; -- 任务是否结束标识
  DECLARE  doneFlag INT DEFAULT 0; -- 完毕标识，0：未完毕；1：已完毕
  DECLARE  notfound INT DEFAULT 0;-- 是否未找到数据 标记
  -- 启动事物
   -- START TRANSACTION;   

  
  /* 声明历史流程实例的游标 */
  DECLARE hprocessInstanceRS CURSOR FOR SELECT dbid_,START_,END_ FROM jbpm4_hist_procinst  where START_>='2014-0-0 0:0:0' and  START_<'2015-0-0 0:0:0';
  
  /* 声明历史活动实例的游标 */
  DECLARE hactinstRS CURSOR FOR SELECT dbid_,HTASK_ FROM jbpm4_hist_actinst  where HPROCI_=hprocessInstanceId;

  /* 声明历史活动实例的游标 */
  DECLARE htaskRS CURSOR FOR SELECT dbid_ FROM jbpm4_hist_task where DBID_=hactinstId;

  /* 声明历史活动实例的游标 */
  DECLARE hvarRS CURSOR FOR SELECT dbid_ FROM jbpm4_hist_var where HTASK_=rtaskId;
  
  /** 声明正在运行流程实例的游标（历史表中由于各种原因未完毕的） **/
  DECLARE rexecutionRS CURSOR FOR SELECT dbid_ FROM jbpm4_execution where DBID_=hprocessInstanceId;

  /** 声明正在运行流程变量的游标(仅仅删除2014年条件下因为各种原因未完毕的流程实例所相应的流程变量) */
  DECLARE rvarRS CURSOR FOR SELECT dbid_ FROM jbpm4_variable where EXECUTION_=hprocessInstanceId;
 
  /** 声明正在运行的人工任务的游标(仅仅是2014年開始的流程实例所相应的) **/
  DECLARE rtaskRS CURSOR FOR SELECT dbid_ FROM jbpm4_task where DBID_=rtaskId;

  /** 声明泳道的结果集游标。为了删除paritation表。该项目没有记录，实际删除条数为0 **/
  DECLARE rswinmlanceRS CURSOR FOR SELECT dbid_ FROM jbpm4_swimlane where dbid_=rswinmlanceId;
 
  /* 异常处理 */
  DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET doneFlag = 1;

  /** 删除s，使用嵌套循环..... **/
  
    OPEN hprocessInstanceRS;
    FETCH hprocessInstanceRS INTO hprocessInstanceId,hprocessInstanceIdStarttime,hprocessInstanceIdEndtime;-- 获取历史流程实例表的数据数据
    
    REPEAT
     IF hprocessInstanceIdEndtime='' THEN
      -- 没有结束，运行删除正在运行的流程实例表
      /** 1.查询正在运行的流程实例记录s **/
      SET rexecutionId=hprocessInstanceId; -- 未完毕的流程实例与正在运行的流程实例id做相应
      OPEN rexecutionRS;
       FETCH rexecutionRS INTO rexecutionId;
       REPEAT
        /** 2.查询该流程实例下的全部正在运行的流程变量记录s 2**/
        OPEN hvarRS;
         FETCH hvarRS INTO rvarId;
         REPEAT
          /** 3.删除正在运行的流程变量所相应的人工任务记录s 3**/
          delete from jbpm4_task where dbid_=rvarId;
          /** 3.删除正在运行的流程变量所相应的人工任务记录e 3**/
          delete from jbpm4_variable where dbid_=rvarId; -- 单条删除流程变量记录
          FETCH hvarRS INTO rvarId;
         UNTIL doneFlag END REPEAT;
        CLOSE hvarRS;
        /** 2.查询该流程实例下的全部正在运行的流程变量记录e 2**/
       delete from jbpm4_execution where dbid_=rexecutionId;  -- 单条删除流程对象记录
       FETCH rexecutionRS INTO rexecutionId;
       UNTIL doneFlag END REPEAT;
      CLOSE rexecutionRS;
      
     END IF;
     /*** ======删除历史流程记录表相关数据===== **/
     /** 1.查询活动实例表 s **/
     OPEN hactinstRS;
      FETCH hactinstRS INTO hactinstId,htaskId;
      REPEAT
       /** 2.查询历史人工活动表记录s **/
        OPEN htaskRS;
         FETCH htaskRS INTO htaskId;
         REPEAT
          /** 3.删除历史人工任务 **/
          delete from jbpm4_hist_task where dbid_=htaskId;
          FETCH htaskRS INTO htaskId;
         UNTIL doneFlag END REPEAT;
        CLOSE htaskRS;
       /** 2.查询历史人工活动表记录s **/
       FETCH hactinstRS INTO hactinstId,htaskId;
      UNTIL doneFlag END REPEAT;
     CLOSE hactinstRS;
     
     /** 1.查询活动实例表 e **/
     /*** ======删除历史流程记录表相关数据===== **/
     /** 删除历史活动实例表 **/
     delete from jbpm4_hist_actinst where HPROCI_=hprocessInstanceId;

     SET doneFlag=0;
     FETCH hprocessInstanceRS INTO hprocessInstanceId,hprocessInstanceIdStarttime,hprocessInstanceIdEndtime;-- 获取历史流程实例表的数据数据
    UNTIL doneFlag END REPEAT;
   CLOSE hprocessInstanceRS;
END

使用嵌套之后，10万-百万条数据量删除很慢。有什么解决方法没有？