/*
|| パラメータ付きカーソル文
||
|| CURSOL <カーソル名> (<仮パラメータ名> <データ型>(
|| IS SELECT ･･･ WHERE ･･･ <仮パラメータ名>;
|| OPEN <カーソル名> (<実パラメータ>);
|| FOR <ループ索引名> IN <カーソル名> (<実パラメータ>) LOOP
|| <処理文>;
|| END LOOP;
*/
SQL> DECLARE
2 CURSOL emp_cur(d_no NUMBER) IS SELECT empno, ename FROM emp
3 WHERE deptno = 10;
4 d_var NUMBER;
5 BEGIN
6 d_var := &DEPTNO;
7 FOR emp_rec IN emp_cur(d_var) LOOP
8 DBMS_OUTPUT.PUT_LINE(emp_rec.empno||’ ‘||emp_rec.ename);
9 END LOOP;
10 END;
11 /
以上です (^^♪
