「Oracle」パッケージボディ(package body)のサンプル

2014年11月11日2021年8月30日

書式
CREATE OR REPLACE PACKAGE BODY パッケージ名　IS
PROCEDURE プロシージャ名(変数名xx)
FUNCTION ファンクション名(xxx) RETURN データの型
使用例

CREATE OR REPLACE PACKAGE BODY TEST_PACK
IS
      -- プロシージャCFT_PROCの定義
      PROCEDURE CFT_PROC
      (EMPID  IN   NUMBER,
       DEPNAME  OUT  VARCHAR2
      )
      IS
      BEGIN
            SELECT DEPNAME INTO DEPNAME FROM USER_TBL
            WHERE EMPID = EMPID;
            DBMS_OUTPUT.PUT_LINE(DEPNAME);
      END CFT_PROC;
      
      -- ファンクションCFT_FUNCの定義   
      FUNCTION CFT_FUNC(EMPID IN VARCHAR2) RETURN VARCHAR2
      IS
      DEPNAME VARCHAR2(30);
      BEGIN
            SELECT DEPNAME INTO DEPNAME FROM USER_TBL
            WHERE EMPID = EMPID;
            RETURN DEPNAME;
      END CFT_FUNC;
      
END TEST_PACK;