--패키지 및 프로시저 선언
CREATE OR REPLACE PACKAGE DH.TEST_PKG AS
TYPE T_CURSOR IS REF CURSOR;
PROCEDURE TEST1
(
IN_WOCUST IN VARCHAR2
,V_CURSOR OUT T_CURSOR
);
END TEST_PKG;
/
------------------------------------------------------------------------------
-- 패키지 및 프로시저 구현
CREATE OR REPLACE PACKAGE BODY DH.TEST_PKG AS
PROCEDURE TEST1
(
IN_WOCUST IN VARCHAR2
,V_CURSOR OUT T_CURSOR
)
IS
vJHJIL NUMBER(5);
vDAEIL NUMBER(5);
BI_TEXT VARCHAR(3);
BEGIN
SELECT '333'
INTO BI_TEXT
FROM DUAL;
OPEN V_CURSOR FOR
SELECT ''