CREATE TABLE PEGAWAI (
NIP VARCHAR2(9) PRIMARY KEY,
NAMA VARCHAR2(50)
);

–procedure dengan ref cursor di dalamnya
CREATE OR REPLACE PROCEDURE test_pegawai
AS
TYPE rc IS REF CURSOR;
v_cursor rc;
v_data pegawai%rowtype;
BEGIN
OPEN v_cursor FOR SELECT * FROM PEGAWAI;
LOOP
FETCH v_cursor INTO v_data;
EXIT WHEN v_cursor%notfound;
DBMS_OUTPUT.PUT_LINE(v_cursor%ROWCOUNT ||’. Pegawai dengan NIP ‘ ||v_data.NIP ||’ bernama ‘||v_data.NAMA);
END LOOP;
CLOSE v_cursor;
END test_pegawai;

– cara memanggil procedure test_pegawai
EXECUTE test_pegawai;

Nah bagaimana jika ref cursor itu ada di dalam package specification?

–create package
CREATE OR REPLACE PACKAGE EMPLOYEE
AS
TYPE rc IS REF CURSOR RETURN PEGAWAI%ROWTYPE;
END EMPLOYEE;

–create procedure yang memanggil ref cursor. ref cursor dapat dipanggil melalui package body atau procedure yang terpisah

CREATE OR REPLACE PROCEDURE call_employee (ref_c OUT EMPLOYEE.RC)
AS
v_data PEGAWAI%ROWTYPE;
BEGIN
OPEN ref_c FOR SELECT * FROM PEGAWAI;
LOOP
FETCH ref_c INTO v_data;
EXIT WHEN ref_c%NOTFOUND;
DBMS_OUTPUT.PUT_LINE (ref_c%ROWCOUNT ||’. Pegawai dengan NIP ‘ ||v_data.NIP ||’ bernama ‘ ||v_data.NAMA);
END LOOP;
CLOSE ref_c;
END call_employee;

–cara memanggil procedure call_employee. Ingat procedure yang mempunyai atribut OUT atau IN OUT harus dipanggil melalui blok PL/SQL lain
DECLARE
c EMPLOYEE.RC;
BEGIN
call_employee(c);
END;

Nah selamat mencoba ^^

Sekalian contoh ngecek apakah sudah berhasil atao blom ditunggu ya