Oracle Database パッケージを作成する

CREATE [OR REPLACE] PACKAGE パッケージ名 AS

  --ファンクション
  FUNCTION ファンクション名(引数 IN 型 [, ...]) RETURN 戻り値型;

  --プロシージャ
  PROCEDURE プロシージャ名(引数 IN 型 [, ...]);

END;
/

CREATE [OR REPLACE] PACKAGE BODY パッケージ名 AS

  --グローバル変数
    変数名 型;

  --ファンクションの場合
  FUNCTION ファンクション名(引数 IN 型 [, ...]) RETURN 戻り値型;
    IS
      宣言部
    BEGIN
      処理部
      RETURN 戻り値;
    EXCEPTION
      例外部
    END ファンクション名;

  --プロシージャの場合
  PROCEDURE プロシージャ名(引数 IN 型 [, ...]);
    IS
      宣言部
    BEGIN
      処理部
    EXCEPTION
      例外部
    END プロシージャ名;

END パッケージ名;
/

CREATE OR REPLACE PACKAGE pkgtest AS
--ファンクション
FUNCTION calcfun (
  x IN NUMBER,
  y IN NUMBER
) RETURN NUMBER;

--プロシージャ
PROCEDURE calcpro (
  x IN NUMBER,
  y IN NUMBER
);

END;
/

-- 本体部
CREATE OR REPLACE PACKAGE BODY pkgtest AS
  --ファンクション
  FUNCTION calcfun(x IN NUMBER, y IN NUMBER) RETURN NUMBER
  IS
    z NUMBER;
  BEGIN
    z := x * y;
    RETURN z;
  END calcfun;

  --プロシージャ
  PROCEDURE calcpro(x IN NUMBER, y IN NUMBER)
  IS
    z NUMBER;
  BEGIN
    z := x + y;
  END calcpro;
  
END pkgtest;
/

SELECT
  pkgtest.calcfun(2, 5)
FROM
  DUAL;