カーソルプロパティ

obclient> CREATE TABLE employees (
      employee_id INT,
      first_name VARCHAR(50),
      last_name VARCHAR(50),
      manager_id INT,
      salary NUMERIC
    );
Query OK, 0 rows affected

obclient> INSERT INTO employees VALUES(111, 'DEL', 'FA BEN', 1, 1500);
Query OK, 1 rows affected

obclient> INSERT INTO employees VALUES(112, 'AXEL', 'BELL', 1, 1000);
Query OK, 1 rows affected

obclient> INSERT INTO employees VALUES(113, 'CRIS',  'RACHAR', 1, 1000);

Query OK, 1 rows affected

obclient> DECLARE
        CURSOR c_emp IS SELECT first_name, salary
            FROM employees where rownum<5;
        v_ename  employees.first_name%TYPE;
        v_sal    employees.salary%TYPE;
     BEGIN
         OPEN c_emp;
         FETCH c_emp INTO v_ename, v_sal;
         WHILE c_emp%FOUND LOOP
             DBMS_OUTPUT.PUT_LINE(v_ename||'''s salary is '||to_char(v_sal) );
             FETCH c_emp INTO v_ename, v_sal;
         END LOOP;
         CLOSE c_emp;
END;
/
Query OK, 0 rows affected

DEL's salary is 1500
AXEL's salary is 1000
CRIS's salary is 1000

obclient> DECLARE
        CURSOR c_emp (in_job_id varchar default 'AC_MGR' ) IS
             SELECT first_name, salary
             FROM employees where job_id = in_job_id;
        v_jobid  employees.job_id%TYPE;
        v_emp_name employees.first_name%TYPE;
        v_sal employees.salary%TYPE;
     BEGIN
         v_jobid := 'IT_PROG';
         OPEN c_emp(in_job_id => v_jobid);
         LOOP
             FETCH c_emp INTO v_emp_name, v_sal;
             EXIT WHEN c_emp%NOTFOUND;
             DBMS_OUTPUT.PUT_LINE('DEPT '||v_jobid||': '||v_emp_name||'''s salary is '||to_char(v_sal) );
         END LOOP;
         CLOSE c_emp;
END;
/
Query OK, 0 rows affected

DEPT IT_PROG: Alexander's salary is 9000
DEPT IT_PROG: Bruce's salary is 6000
DEPT IT_PROG: David's salary is 4800
DEPT IT_PROG: Valli's salary is 4800
DEPT IT_PROG: Diana's salary is 4200