ネストしたサブプログラム

PL/SQLでは、ブロック内に別のサブプログラムを宣言できます（リスト27）。

DECLARE
  A NUMBER DEFAULT 1;
  PROCEDURE MYPROC(B NUMBER) IS
    BEGIN
      A := A + B;
    END MYPROC;
BEGIN
  DBMS_OUTPUT.PUT_LINE( 'A = ' || A );
  MYPROC( 3 );
  DBMS_OUTPUT.PUT_LINE( 'A = ' || A );
END;

リスト29：PL/SQLでのサブプログラム宣言

PostgreSQLには同等の機能がないので、まずブロック内のサブプログラムを別の関数にします。そのうえで、ブロック内の変数への参照があったときは、その変数の受け渡しと結果の受け取り処理を追加します（リスト28）。

 CREATE FUNCTION MYPROC(INTEGER,INTEGER)
RETURNS INTEGER AS '
  DECLARE
    A ALIAS FOR $1;
    B ALIAS FOR $2;
    C INTEGER;
  BEGIN
    C := A + B;
    RETURN C;
  END;
 CREATE FUNCTION TEST_MYPROC()

   RETURNS VOID AS '
 DECLARE
   A INTEGER DEFAULT 1;
 BEGIN
   RAISE INFO ''A = %'', A;
   A := MYPROC( A, 3 );
   RAISE INFO ''A = %'', A;
RETURN;
   END;
 ' LANGUAGE 'plpgsql';

リスト30：変数の受け渡しと結果の受け取り処理

次がその実行結果です。

 % SELECT TEST_MYPROC();

 INFO: A = 1
 INFO: A = 4

パッケージ

PL/SQLでは、パッケージを使って型やサブプログラムをまとめることができます（リスト29）。つまり、名前空間の管理をすることができますが、PostgreSQLにはパッケージのしくみはありません。

 -- パッケージ仕様
CREATE PACKAGE MY_PKG AS
  CURSOR C1 RETURN 顧客マスタ%ROWTYPE;
  FUNCTION GET_ONE RETURN NUMBER;
END MY_PKG;

-- パッケージ実装
CREATE OR REPLACE PACKAGE BODY MY_PKG AS
  CURSOR C1 RETURN 顧客マスタ%ROWTYPE IS
   SELECT * FROM 顧客マスタ;
  FUNCTION GET_ONE RETURN NUMBER IS
    BEGIN
      RETURN 1;
    END GET_ONE;
END MY_PKG;

リスト31：PL/SQLでのパッケージ実装例

図18はリスト31の実行結果です。

 DECLARE
  customer 顧客マスタ%ROWTYPE;
BEGIN
  OPEN MY_PKG.C1;
  LOOP
    FETCH MY_PKG.C1 INTO customer;
    EXIT WHEN MY_PKG.C1%NOTFOUND;
    DBMS_OUTPUT.PUT_LINE(
      '顧客= ' || customer.顧客名);
  END LOOP;
  CLOSE MY_PKG.C1;
END;

顧客= (株)ワイキキソフト
顧客= 鈴木商事
顧客= 斎藤模型店
顧客= マクロハード
顧客= (株)ランヌ

図18：リスト31の実行結果

代わりに、PostgreSQLではスキーマを使って名前空間の管理をすることができます。しかし、スキーマにはデータオブジェクトを登録することができないので少々工夫が必要です（リスト30）。

 CREATE SCHEMA MY_PKG;

CREATE OR REPLACE FUNCTION
  MY_PKG.C1(refcursor)
RETURNS refcursor AS '
  BEGIN
    OPEN $1 FOR SELECT * FROM 顧客マスタ;
    RETURN $1;
  END;
' LANGUAGE 'plpgsql';

CREATE FUNCTION MY_PKG.GET_ONE()
RETURNS INTEGER AS '
    BEGIN
      RETURN 1;
    END;
' LANGUAGE 'plpgsql';

リスト32：PostgreSQLでの名前空間の管理

図19は、その実行結果です。

 CREATE OR REPLACE FUNCTION TEST_MYPKG()
RETURNS VOID AS '
DECLARE
  C1 refcursor;
  customer 顧客マスタ%ROWTYPE;
BEGIN
  C1 := MY_PKG.C1(''C1'');
  LOOP
    FETCH C1 INTO customer;
    EXIT WHEN NOT FOUND;
    RAISE INFO ''顧客= %'', customer.顧客名;
  END LOOP;
  CLOSE C1;
  RETURN;
END;
' LANGUAGE 'plpgsql';

SELECT TEST_MYPKG();

INFO: 顧客= (株)ワイキキソフト
INFO: 顧客= 鈴木商事
INFO: 顧客= 斎藤模型店
INFO: 顧客= マクロハード
INFO: 顧客= (株)ランヌ

図19：リスト32の実行結果

ライブラリ

PostgreSQLにはOracleにあるような膨大なライブラリが存在しません。そのため、必要なライブラリに相当する機能を、PostgreSQLのユーザー定義関数などを使って実装する必要があります。

興味のある方は、PL/Perlなどを用いて次のようなパッケージの自作に挑戦してみるとよいでしょう。

DBMS_OUTPUT
UTL_FILE
UTL_HTTP

まとめ

いかがでしたでしょうか。

やはり機能が少ない分、OracleからPostgreSQLに移行する方が苦労すると思います。ですが、いろいろと工夫すれば意外に多くの機能を移行できると思われたのではないでしょうか。

PostgreSQLは活発に開発が続けられており、商用データベースの高度な機能も、どんどん実装されています。注目の8.0（本稿執筆時点でベータ版）では、「Point In Time Recovery」やセーブポイントなどに対応します。

バージョンを重ねるにつれ、相互移行の苦労はどんどん減っていくと思います。PostgreSQLの進化に、今後とも目が離せませんね。