/*
|| カーソルによるデータの更新処理
||
|| FOR <ループ索引名> IN <カーソル名> LOOP
|| <処理文>;
|| END LOOP;
*/
SQL> DECLARE
2 CURSOL emp_cur IS SELECT empno, ename FROM emp
3 WHERE deptno = 10;
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 empno = emprec.empno;
9 END IF;
10 END LOOP;
11 END;
12 /
以上です (^^♪