「Oracle」パッケージボディ(package body)のサンプル
書式
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;