Home > サポート > 技術情報 > Server Express > Server Expressから DB2 へのアクセス

技術情報 - Server Express - Server Expressから DB2 へのアクセス

Server Express、Net Express でCOBOLから DB2 UDBにアクセスするには、以下の3通りの方法があります。

DB2 が装備している Micro Focus向けプレコンパイラを使用する

この方法はIBM によってサポートされているテクノロジーです。DB2 はさまざまな言語から埋め込みSQL文による DB2アクセスを可能とするプレコンパイラを提供しています。Server Express についても、独自の対応をサポートしています。

$DB2DIR/samples/cobol_mf ディレクトリの下に、Server Express向けのサンプルプログラムが提供されており、プレコンパイル・コンパイル・リンク・実行のステップを体験できます。以下に、サンプルを実際に実行するステップを示します：

$ db2 connect to sample

   Database Connection Information

 Database server        = DB2/6000 7.2.0
 SQL authorization ID   = DB2ADMIN
 Local database alias   = SAMPLE

$ db2 prep cursor.sqb bindfile

LINE    MESSAGES FOR cursor.sqb
------  --------------------------------------------------------------------
        SQL0060W  The "COBOL" precompiler is in progress.
        SQL0091W  Precompilation or binding was ended with "0"
                  errors and "0" warnings.
$ db2 bind cursor.bnd

LINE    MESSAGES FOR cursor.bnd
------  --------------------------------------------------------------------
        SQL0061W  The binder is in progress.
        SQL0091N  Binding was ended with "0" errors and "0" warnings.
$ db2 connect reset
DB20000I  The SQL command completed successfully.
$ ls -l cursor.*
-rw-r--r--   1 db2admin db2iadm1    4592 Jun 07 11:11 cursor.bnd
-rw-r--r--   1 db2admin db2iadm1   12171 Jun 07 11:11 cursor.cbl
-r--r--r--   1 db2admin db2iadm1    3780 Jun 07 10:56 cursor.sqb
$ cob -c -x checkerr.cbl
$ cob -V -c -x cursor.cbl
* Micro Focus Server Express         V2.0 revision 011 Compiler
* Copyright (C) 1984-2001 MERANT International URN RXCAI/AA0/00000Q
$ cob -x -o cursor cursor.o checkerr.o -ldb2 -ldb2gmf -L$DB2PATH/lib
$ ./cursor
Sample COBOL program: CURSOR
Enter your user id (default none):
Sanders    in dept. +00020 is a manager
Marenghi   in dept. +00038 is a manager
Hanes      in dept. +00015 is a manager
Plotz      in dept. +00042 is a manager
Fraye      in dept. +00051 is a manager
Molinare   in dept. +00010 is a manager
Lu         in dept. +00010 is a manager
Daniels    in dept. +00010 is a manager
Jones      in dept. +00010 is a manager
Lea        in dept. +00066 is a manager
Quill      in dept. +00084 is a manager
$

詳細な情報は DB2 のマニュアルを参照してください。

Server Express、Net Expressが提供する OpenESQL機能でODBCドライバ経由で接続する

弊社が標準的に推奨している方法であり、実績もあります。

Net Expressを使用したクロス開発の場合に必須な方法であり、Windows上で対話型のクエリー自動生成や、ホスト変数宣言を自動生成する機能が利用できます。

この方法の場合、データディレクトテクノロジーズから、DataDirect SequeLink ODBCドライバを追加購入する必要があります。
Server Express、Net Expressが提供する DB2 ECM機能で、直接DB2クライアント経由で接続する

UDB 7.2 で動作検証済みです。Net Expressによるクロス開発は使用できません。DB2の拡張SQL方言が使用できます。

戻る

SupportLine