Oracle PL/SQL Einzel-Tipp ansehen

Cursor im Package wird über die Procedure offen gelassen

Tipp 29

CREATE OR REPLACE PACKAGE cur_pack AS
procedure cursoroeffne;
procedure ausgabe;
procedure cursorzu;
END;
/

CREATE OR REPLACE PACKAGE BODY cur_pack AS
CURSOR c_emp IS SELECT * from scott.emp;
rec_emp c_emp%ROWTYPE;

procedure cursoroeffne
is
BEGIN
 open c_emp;
END;

procedure ausgabe
is
BEGIN
 for i in 1 .. 3 loop
     if not c_emp%isopen then
         open c_emp;
     END if;
     fetch c_emp into rec_emp;
     dbms_output.put_line('Name:'||rec_emp.ename);
     dbms_output.new_line;
 END loop;
END;

procedure cursorzu
is
BEGIN    
 close c_emp;
END;

END;
/

EXEC cur_pack.cursoroeffne;
EXEC cur_pack.ausgabe;
EXEC cur_pack.cursorzu;