Oracle Cursor 예제 (Loop Fetch)

CREATE OR REPLACE PROCEDURE p_emp_info
          (p_dept_id     s_emp.dept_id%TYPE)
IS  
          CURSOR  c_emp_sal  IS
                    SELECT last_name, salary
                    FROM s_emp
                    WHERE dept_id = p_dept_id;
          v_sal                 s_emp.salary%TYPE;
          v_last_name    s_emp.last_name%TYPE;
BEGIN
          OPEN c_emp_sal;
          LOOP
                    FETCH  c_emp_sal  INTO  v_last_name, v_sal ;
                    IF  c_emp_sal%NOTFOUND  THEN
                              EXIT;
                    END IF;
                    DBMS_OUTPUT.PUT_LINE(v_last_name || '   ' || v_sal);
          END LOOP;
          CLOSE c_emp_sal;
END;