2011. 2. 22. 15:59

--패키지 및 프로시저 선언
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  ''
Posted by CoolDragon