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;