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;
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;