4.1.3 プロシジャルーチンの定義

Symfoware Server アプリケーション開発ガイド(埋込みSQL編) - FUJITSU -

目次索引

4.1.3 プロシジャルーチンの定義

プロシジャルーチンをスキーマに登録するには、以下に示すプロシジャルーチン定義文を使用します。

CREATE PROCEDURE  SCM.RNAME ( IN   PARA   INT)
                  (1)   (2)   (3)   (4)   (5)
  BEGIN
    DECLARE VAR   INT;
    SET VAR = PARA + 1;
    INSERT INTO SCM.TBL(ITEM) VALUES(VAR);
              ：
  END

(1) スキーマ名

(2) ルーチン名

(3) パラメタモード

(4) パラメタ名

(5) データ型

プロシジャルーチンで定義できるSQL文をSQL手続き文と呼びます。プロシジャルーチンはSQL手続き文を組み合わせることで、アプリケーションロジックのルーチンの開発を行います。SQL手続き文には以下のSQL文があります。

データ操作文
トランザクション管理文(トリガからの呼出し以外)
- COMMIT文
- ROLLBACK文
SQL制御文
- 複合文
- SQL変数宣言
- IF文
- CALL文
- 代入文
- LOOP文
- WHILE文
- REPEAT文
- LEAVE文
- GOTO文
- 分岐先文
- WHENEVER文
- 条件宣言
- ハンドラ宣言
- SIGNAL文(トリガからの呼出し時)
- RESIGNAL文(トリガからの呼出し時)

SQL制御文の詳細については、“SQLリファレンス”を参照してください。

プロシジャルーチン定義をファイルに作成し、サーバ側でrdbddlexコマンドを実行してプロシジャルーチンを登録します。rdbddlexコマンドでプロシジャルーチンを定義する場合、注釈を指定することができます。

定義ファイルからプロシジャルーチンを登録する例と定義ファイルの例を以下に示します。

例

在庫表から、在庫数量が50以下の製品に対する発注を、倉庫番号によって営業所別のテーブルに振り分けます。

［定義ファイルからプロシジャルーチンを登録する例］

  rdbddlex  -d  RDBDB   -x /home/rdb/DDL/ddl.dat
                                    ↑
                              入力ファイル指定

[定義ファイル(ddl.dat)の例]

EXEC SQL
  CREATE PROCEDURE 在庫管理.営業所別発注処理(IN 検索キー INT)
    BEGIN
      -- SQL変数宣言
        DECLARE   製品番号Ｖ   SMALLINT;
        DECLARE   製品名Ｖ     NCHAR(10);
        DECLARE   在庫数量Ｖ   INT;
        DECLARE   倉庫番号Ｖ   SMALLINT;
        DECLARE   数量Ｖ       INT;
        DECLARE   SQLSTATE     CHAR(5);
                ：
                ：
      -- カーソル宣言
      DECLARE CUR1 CURSOR FOR
         SELECT 製品番号, 製品名, 在庫数量, 倉庫番号 FROM 在庫管理.在庫表;

      DECLARE CUR2 CURSOR FOR
         SELECT 取引先, 取引製品, 発注数量 FROM 在庫管理.発注表;
                ：

      -- 検索キーに1が指定された場合,CUR1に対する検索と補充テーブルの
      -- INSERTを行う.
      IF 検索キー = 1 THEN
        OPEN CUR1;
        LABEL1:
        -- データが終了するまでデータを検索する.
        LOOP
          FETCH CUR1 INTO 製品番号Ｖ，製品名Ｖ，在庫数量Ｖ，倉庫番号Ｖ;
          IF SQLSTATE <> '00000' THEN
            LEAVE LABEL1;
          END IF;
          -- 在庫数量が50以下の場合, 補充データの作成を行う．
          IF 在庫数量Ｖ <= 50 THEN
            -- 補充の数量を算出する．
            SET 数量Ｖ = 50 - 在庫数量Ｖ;
            -- 倉庫番号によって発注先のテーブルを変更する．
            IF 倉庫番号Ｖ = 2 THEN
              INSERT INTO 在庫管理.営業所２(製品番号, 製品名, 数量)
                                      VALUES(製品番号Ｖ，製品名Ｖ，数量Ｖ);
            IF SQLSTATE <> '00000' THEN
              LEAVE LABEL1;
            END IF;
            ELSE
              INSERT INTO 在庫管理.営業所１(製品番号, 製品名, 数量)
                                      VALUES(製品番号Ｖ，製品名Ｖ，数量Ｖ);
            IF SQLSTATE <> '00000' THEN
              LEAVE LABEL1;
            END IF;
          END IF;
        END IF;
      END LOOP LABEL1;

    -- 検索キーに2が指定された場合, CUR2に対する処理を行う．
    ELSEIF 検索キー = 2 THEN
      OPEN CUR2;
                ：

      END IF;
    END
END-EXEC;

上記の例の入力ファイル指定が、“C:\USERS\DEFAULT\DDL.DAT”のような形式になります。

目次索引