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:
Post a Comment