Monday, September 8, 2008

Ref Cursor Usage

CREATE OR REPLACE PACKAGE REF_CURSOR_TEST IS

TYPE T_ACCOUNTS_CURSOR IS REF CURSOR;
PROCEDURE GET_ACCOUNTS_PROCEDURE (P_ACCOUNTS OUT T_ACCOUNTS_CURSOR);

END REF_CURSOR_TEST;
/

CREATE OR REPLACE PACKAGE BODY REF_CURSOR_TEST IS

PROCEDURE GET_ACCOUNTS_PROCEDURE (
P_ACCOUNTS OUT T_ACCOUNTS_CURSOR
) AS
BEGIN
OPEN P_ACCOUNTS FOR 
SELECT
Id,Name
FROM refs;
END GET_ACCOUNTS_PROCEDURE;

END REF_CURSOR_TEST;
/

No comments: