Cursor im Package wird über die Procedure offen gelassen
Tipp 29
Thema: Cursor
Datenbank-Version: RDBMS 8.x
Erstellt am 07.10.19
Bearbeitet am 07.10.19
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;