/*
|| カーソル文
||
|| CURSOL <カーソル名> IS <問合せ文>;
|| OPEN <カーソル名>;
|| FETCH <カーソル名> INTO <変数名> [,<変数名>･･･];
|| CLOSE <カーソル名>;
*/
SQL> DECLARE
2 CURSOL emp_cur IS SELECT empno, ename FROM emp
3 WHERE deptno = 10;
4 emp_rec emp_cur%ROWTYPE;
5 BEGIN
6 OPEN emp_cur;
7 LOOP
8 FETCH emp_cur INTO emp_rec;
9 EXIT WHEN emp_cur%NOTFOUND;
10 DBMS_OUTPUT.PUT_LINE(emp_rec.empno||’ ‘||emp_rec.ename);
11 END LOOP;
12 CLOSE emp_cur;
13 END;
14 /
以上です (^^♪
