/*
|| カーソルとWHERE CURRENT OF句
||
|| UPDATE・・・WHERE CURRENT OF <カーソル名>;
|| DELETEE・・・WHERE CURRENT OF <カーソル名>;
*/
SQL> DECLARE
2 CURSOL emp_cur IS SELECT empno, ename FROM emp
3 WHERE deptno = 10 FOR UPDATE;
4 BEGIN
5 FOR emp_rec IN emp_cur LOOP
6 IF emp.rec.sal < 2500 THEN
7 UPDATE emp SET sal = sal + 100
8 WHERE CURRENT OF emp_cur;
9 END IF;
10 END LOOP;
11 END;
12 /
以上です (^^♪