• 例子

DECLARE

CURSOR emp IS
@H_403_9@SELECT first_name,last_name @H_403_9@FROM hr.employees;

my_emp2 emp%ROWTYPE;

fir_name hr.employees.first_name%TYPE;

@H_403_9@BEGIN @H_403_9@WITH emp_temp @H_403_9@AS ( @H_403_9@SELECT first_name @H_403_9@FROM hr.employees @H_403_9@WHERE first_name = 'Ellen' ) @H_403_9@SELECT first_name @H_403_9@INTO fir_name @H_403_9@FROM emp_temp;

DBMS_OUTPUT.PUT_LINE( 'first_name -- ' || fir_name );


OPEN emp;

LOOP

FETCH emp INTO my_emp2;
EXIT WHEN emp%NOTFOUND;



DBMS_OUTPUT.PUT_LINE( 'fetch -- ' || my_emp2.first_name || '-' || my_emp2.last_name );

@H_403_9@END LOOP;

CLOSE emp;

FOR eachemp IN emp LOOP
DBMS_OUTPUT.PUT_LINE( 'for -- ' || eachemp.first_name || '-' || eachemp.last_name );
@H_403_9@END LOOP;

@H_403_9@END;
/


@H_403_9@SELECT * @H_403_9@FROM V$OPEN_CURSOR