Mac上でCOBOLからPostgreSQLにアクセス

OSSコンソーシアムのオープンCOBOLソリューション部会が提供する Open COBOL ESQL をMacにインストールして、PostgreSQLにアクセスするCOBOLプログラムをコンパイル・動作させます。

前提条件

Open COBOL ESQLのコンパイルに必要なPostgreSQLをインストールしてください。

opensource COBOLをインストールして、COBOLプログラムをコンパイルできるようにしてください。opensource COBOLのインストールについてはこちらの記事が参考になります。

Open COBOL ESQL のインストール

Open COBOL ESQLのダウンロードサイトからOpen COBOL ESQLのソースパッケージ(2017年2月9日時点ではocesql-1.1.0.tar.gz)をダウンロードします。

Open COBOL ESQLのソースパッケージを展開し、#include <malloc.h>を#include <stdlib.h>に置き換えます。置き換えをしないと、fatal error: 'malloc.h' file not foundのエラーでコンパイルが失敗します。

$ tar zxf ocesql-1.1.0.tar.gz
$ cd ocesql-1.1.0

$ sed s/"\#include \<malloc.h\>"/"\#include \<stdlib.h\>"/g dblib/ocdb.c > tmp
$ mv tmp dblib/ocdb.c
$ sed s/"\#include \<malloc.h\>"/"\#include \<stdlib.h\>"/g dblib/ocdbutil.c > tmp
$ mv tmp dblib/ocdbutil.c
$ sed s/"\#include \<malloc.h\>"/"\#include \<stdlib.h\>"/g dblib/ocesql.c > tmp
$ mv tmp dblib/ocesql.c
$ sed s/"\#include \<malloc.h\>"/"\#include \<stdlib.h\>"/g dblib/ocpgsql.c > tmp
$ mv tmp dblib/ocpgsql.c
$ sed s/"\#include \<malloc.h\>"/"\#include \<stdlib.h\>"/g ocesql/parser.c > tmp
$ mv tmp ocesql/parser.c

PostgreSQLインストールディレクトリのincludeとlibをCPPFLAGSとLDFLAGSに設定した上で、Open COBOL ESQLをコンパイル、インストールします。

$ export CPPFLAGS="-I/opt/pgsql/include"
$ export LDFLAGS="-L/opt/pgsql/lib"
$ ./configure
$ make
$ sudo make install

PostgreSQLにアクセスするCOBOLプログラムの作成と実行

ソースファイル randomnum.cbl (拡張子はcbl) に以下のとおりコーディングします。コードの各行は8桁目以降から始まっていることに注意してください。このCOBOLプログラムは、PostgreSQLにアクセスして、ランダムな整数を取得し、表示します。

       IDENTIFICATION DIVISION.
       PROGRAM-ID. RANDOMNUM.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 RET       PIC 9(3).

       EXEC SQL BEGIN DECLARE SECTION END-EXEC.
       01 DBNAME    PIC X(32) VALUE "postgres".
       01 USERNAME  PIC X(32) VALUE "postgres".
       01 PASSWORD  PIC X(32) VALUE SPACE.
       EXEC SQL END DECLARE SECTION END-EXEC.

       EXEC SQL INCLUDE SQLCA END-EXEC.

       PROCEDURE DIVISION.
       MAIN.
            EXEC SQL
                CONNECT :USERNAME IDENTIFIED BY :PASSWORD
                    USING :DBNAME
            END-EXEC.

            EXEC SQL
                SELECT round(random()*100) INTO :RET
            END-EXEC.

            EXEC SQL
                DISCONNECT ALL
            END-EXEC.

            DISPLAY RET.
            STOP RUN.

Open COBOL ESQL でプリコンパイルします。

$ ocesql randomnum.cbl randomnum.cob

次に、環境変数COBCPYに Open COBOL ESQL ソースディレクトリ配下のcopyディレクトリのパスを指定した上で、コンパイル対象のファイルは、プリコンパイル結果の randomnum.cob (拡張子がcob) をコンパイルします。コンパイル時には、PostgreSQLインストールディレクトリのlibを-Lに指定し、また-locesqlと-lpqも指定してください。

$ export COBCPY=/opt/ocesql-1.1.0/copy
$ cobc -x -locesql -lpq -L/opt/pgsql/lib randomnum.cob

最後に、PostgreSQLを別途起動した上で、COBOLプログラムを実行します。

## 事前にPostgreSQLを起動しておくこと

$ ./randomnum
060
$ ./randomnum
083