|
|
[ÀϹÝ] [sql]pakage ÆÐÅ°Áö ±¸Çö¿¹Á¦ |
|
È£¼® ´Ô²²¼ ¾´ ±ÛÀÔ´Ï´Ù - 220.¢½.198.135 |
ÀÐÀ½:3569 |
|
|
CREATE OR REPLACE PACKAGE ZZ_PKG
AS
-- Return¹ÞÀ» Record ¼±¾ð
-- Package¸¦ »ç¿ëÇÏÁö ¾ÊÀ¸·Á¸é Object¿¡ TypeÀÌ ¹Ì¸® ¼±¾ðµÇ¾î¾ß ÇÕ´Ï´Ù
TYPE ZZ_TYPE_ITEM_MASTER IS RECORD
(
ITEM_ID IDB_ITEM_MASTER.ITEM_ID%TYPE
,ITEM_NAME IDB_ITEM_MASTER.ITEM_NAME%TYPE
);
-- TypeÀçÁ¤ÀÇ
TYPE SET_ITEM_MASTER IS TABLE OF ZZ_TYPE_ITEM_MASTER;
-- ÇÔ¼ö¼±¾ð(ReturnÀÇ Pipelined ±â¼ú)
FUNCTION ZZ_TEST
RETURN SET_ITEM_MASTER PIPELINED;
END ZZ_PKG;
/
CREATE OR REPLACE PACKAGE BODY ZZ_PKG
AS
FUNCTION ZZ_TEST
RETURN SET_ITEM_MASTER PIPELINED
IS
-- Cursor¼±¾ð(Record Type¼±¾ðºÎ¿Í ÀÏÄ¡ÇØ¾ß °ÚÁÒ ^^)
CURSOR cur_data IS
SELECT ITEM_ID
, ITEM_NAME
FROM IDB_ITEM_MASTER
;
BEGIN
-- Fetch Cursor
FOR ret_data IN cur_data LOOP
-- ÇØ´çrow¸¦ pipe ½ÃŲ´Ù.
PIPE ROW(ret_data);
END LOOP;
RETURN;
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(-20001, 'Error..........');
END ZZ_TEST ;
END ZZ_PKG;
/
|
|
|
220.¢½.198.135
|
|
|
06-05-13 22:09
|
|