PLSQL游标的使用_存储过程

DECLARE
   type mycur1 is ref cursor;    --定义游标mycur
    v_cur_monitor     mycur1;            --定义标量v_cur
   Type v_rowid is table of varchar2(100) index by binary_integer;   --定义rowid类型
   var_rowid v_rowid;          --定义rowid变量
   v_monthno1 NUMBER;
   v_cur_sql1 VARCHAR2(2000);    --存放动态sql
 
BEGIN


   v_cur_sql1 :=  ' select   rowid from act b ';
   OPEN v_cur_monitor FOR v_cur_sql1; 
   loop 
   FETCH v_cur_monitor BULK COLLECT
                INTO var_rowid LIMIT 3000 ;
  FORALL i IN 1 .. var_rowid.count
  delete FROM act1  where  ROWID =var_rowid(i);
  COMMIT;
EXIT WHEN v_cur_monitor%NOTFOUND OR v_cur_monitor%NOTFOUND IS NULL;
END LOOP;
CLOSE v_cur_monitor;
end;