第 8 章: DB2

この章では、Server Express を使用してコンパイルおよびリンクされた、埋め込み SQL 文を持つ COBOL プログラムから DB2 データベースへアクセスする方法を説明します。

DB2 外部コンパイラモジュール (ECM) は、Server Express が提供する新しいタイプの統合プリプロセッサであり、Micro Focus COBOL コンパイラとより密接に動作するように設計されています。DB2 ECM により、埋め込み SQL 文は DB2 データベース サービスへの適切な呼出しに変換されます。

8.1 文字型データ

文字型データには正しいデータタイプを使用するよう注意する必要があります。254 バイト以下の固定長文字列には CHAR データ型を使用します。254 バイトを超える固定長文字列と可変長文字列には VARCHAR データ型を使用します。詳細については『データ型』の章の『文字データ型』を参照してください。

8.2 追加データ型

追加データ型は、次の形の SQL 構文を使用して宣言してください。

>--level_number--name--+------------+-SQL-+-----------+-->
                       |            |     |           |
                       +-USAGE-+----+     +-TYPE-+----+
                                 |    |          |    |
                                 +-IS-+          +-IS-+

>--sql_type--+--------------+--><
             |              |
             +--(--size--)--+

VALUE 句は、新 SQL データ型では許可されていません。

指定する sql_type によって、実際に生成されるデータは基本項目またはグループ項目になります。グループ項目の要素名は自動的に生成されます。

次の表は、SQL 構文を使用して生成したデータ項目の構造を、同等の COBOL 定義で示したものです。どちらの場合も同じデータが生成されますが、DB2 ECM で使用可能なホスト変数として認識されるには、項目は SQL 構文を使用して宣言する必要があります (これは、COBOL の定義があいまいなためです。多くの新しい SQL 型と、個々のホスト変数に展開される既存のグループ項目は、COBOL では区別をつけることができません)。 既存のデータ 型はすべて引き続き、通常の COBOL 構文を使用して宣言してください。例外は TIMESTAMP だけです。TIMESTAMP はどちらの形式を使用しても宣言できます。

01  MY-BLOB SQL BLOB(125M).

01  MY-BLOB.
   49  MY-BLOB-LENGTH PIC S9(9) COMP-5.
   49  MY-BLOB-DATA   PIC X(131072000).

03  A SQL CLOB(3K).

03  A.
   49  A-LENGTH PIC S9(9) COMP-5.
   49  A-DATA   PIC X(3072).

03  HV SQL DBCLOB(125).

03  HV.
   49  HV-LENGTH PIC S9(9) COMP-5.
   49  HV-DATA   PIC G(125).

01  B SQL BLOB-LOCATOR.

01  B PIC S9(9) COMP-5.

01  C SQL CLOB-FILE.

01  C.
   49  C-NAME-LENGTH  PIC S9(9) COMP-5.
   49  C-DATA-LENGTH  PIC S9(9) COMP-5.
   49  C-FILE-OPTIONS PIC S9(9) COMP-5.
   49  C-NAME         PIC X(255).

01  TS SQL TIMESTAMP.

01  TS PIC X(26).

8.3 複合 SQL

現在 DB2 V5.2 で使用可能な拡張形式も含め、複合 SQL をサポートしています。不完全な複合 SQL 文は DB2 ECM により検知され、エラーが発生します。ただし、DB2 はこの状態からいつも回復するとは限りません。プログラム ソース後半の有効な SQL 文がさらにエラーを起こす場合がありますので、注意してください。

8.4 埋め込み SQL サポートの拡張

ここでは、埋め込み SQL サポートの Micro Focus 拡張を説明します。

8.4.1 INCLUDE 文

次のような形式の文は、

exec sql
   include filename
end-exec

次の文とまったく同じように許可および処理されます。

copy filename

インクルードされたファイルには、コピーファイルが含むことのできる COBOL 文をすべて含むことができます。さらに EXEC SQL 文を含むこともできます。

ファイル名の指定にかかわらず、AIX では sqlca と sqlda の特殊な場合としてファイル名は小文字に変換されます。

8.4.2 DECLARE TABLE 文

次のような形の文は許可され、コメントとして扱われます。

exec sql
   DECLARE table-name TABLE
   ...
end-exec

8.4.3 整数ホスト変数

埋め込み SQL サポートでは、整数の形式を USAGE COMP-5 にする必要があります。ユーザが使用しやすいように、DB2 ECM ではホスト変数に USAGE COMP、COMP-4 および BINARY を使用することもでき、これらの形式を変換するための追加コードを生成します。もっとも効率的なコードが生成されるのは、COMP-5 を使用した場合です。

8.4.4 修飾付きホスト変数

ホスト変数は、DB2 for MVS 互換の構文を使用して修飾することができます。

たとえば、あるホスト変数を次のように定義したとします。

01 block-1.
   03 hostvar pic s9(4) comp-5.
01 block-2.
   03 hostvar pic s9(4) comp-5.

次のように修飾して、hostvar のどちらのインスタンスを構文で使用するかを指定できます。

exec sql
   fetch s2 into :block-1.hostvar
end-exec

8.4.5 ホスト変数グループ (ホスト構造) とインジケータ配列 (標識配列)

グループ項目内でホスト変数が宣言されると、これらの変数をそれぞれ順に参照するべき SQL 文が、代わりにグループ名を参照することによって、短縮されてしまうことがあります。インジケータ変数 (標識変数) をこれらのホスト変数と関連付ける必要がある場合には、ホスト変数と同じ数のインスタンスを持つインジケータ変数のテーブルを定義して、このテーブルへの参照を定義してください (OCCURS 句を持つ項目です。その項目を含むグループ項目ではありません)。

たとえば、次のようなホスト変数を定義したとします。

01  host-structure.
   03 sumh           pic s9(9) comp-5.
   03 avgh           pic s9(9) comp-5.
   03 minh           pic s9(9) comp-5.
   03 maxh           pic s9(9) comp-5.
   03 varchar.
      49 varchar-l   pic s9(4) comp.
      49 varchar-d   pic x(1000).
 01  indicator-table.
     03 indic          pic s9(4) comp-5 occurs 4.
 01  redefines indicator-table.
     03 indic1         pic s9(4) comp-5.
     03 indic2         pic s9(4) comp-5.
     03 indic3         pic s9(4) comp-5.
     03 indic4         pic s9(4) comp-5.

この例では、以下のようになります。

exec sql fetch s3 into
  :host-structure:indic
end-exec

上記の手続き文は、次の文と等価です。

exec sql fetch s3 into
  :sumh:indic1, :avgh:indic2, :minh:indic3,
  :maxh:indic4, :varchar
end-exec

宣言された 4 つのインジケータ変数が、はじめの 4 つのホスト変数に割り当てられます。もし 5 つ以上が宣言された場合には、5 つのホスト変数すべてが、1 つのインジケータ変数に関連付けられます。

インジケータ変数のテーブルは、同等の SQL 文を示すためだけに再定義されます (添字指定は SQL 文では許可されていません)。 必要に応じて、再定義を行わずに、添字を使用して、COBOL プログラムをインジケータ変数で参照することができます。

8.4.6 NOT 演算子 (NOT キーワード) (¬)

DB2 では演算子 ¬=, ¬> および ¬< を使用することができます。これらは <>、 <= および >= にマップされます。NOT 演算子 (NOT キーワード) の文字表現はシステムによって異なるので、DB2 コンパイラ指令の NOT オプションを使用して NOT 演算子を定義することができます。

8.4.7 連結演算子 (ストリングの連結) (|)

国によっては、連結演算子 (ストリングの連結) に使用される記号は ASCII 文字の (|) ではありません。DB2 ECM では、DB2 コンパイラ指令の CONCAT オプションを使用して、他の ASCII 文字を連結演算子に指定することができます。

8.4.8 SQL 通信領域

SQL 文を実行すると、プログラムの SQL 通信領域 (SQLCA、SQL 連絡域) と呼ばれる領域に重要な情報が戻されます。通常、SQL 通信領域は、次のような文を使用してユーザのプログラム中に含まれています。

exec sql include sqlca end-exec

これによって、ソースファイル sqlca.cbl がソースコードに取り込まれます。このソース ファイルは、DB2 ECM を通ることにより、SQLCA の COBOL 定義を含んでいます。

この文が含まれない場合は、DB2 ECM が自動的に領域を割り当てますが、プログラム内でこの領域のアドレスを指定することはできません。ただし、SQLCODE および SQLSTATE のどちらか一方、または両方を宣言すれば、DB2 ECM はコードを生成して、各 EXEC SQL 文の後に、SQLCA 領域の対応フィールドをユーザが定義したフィールドにコピーします。

備考: ANSI と互換性を保つために、SQLCA を完全に定義することをお奨めします。

SQLCODE の 0 以外の条件の後で、例外条件の記述が定義されていれば、DB2 ECM はそれによって MFSQLMESSAGETEXT データ項目の内容を更新します。その場合は、文字データ項目、つまり PIC X(n) として宣言することが必要となり、n には何らかの正当な値が入ります。メッセージがデータ項目に適合しない場合は、メッセージの末尾が切り捨てられます。

SQLCA、SQLCODE、SQLSTATE および MFSQLMESSAGETEXT は、ホスト変数として宣言する必要はありません。

8.4.9 オブジェクト指向 COBOL 構文のサポート

DB2 ECM はオブジェクト指向 COBOL の構文 (OO プログラム) と動作するように拡張されました。ただし、いくつか制限がありますので、注意してください。

• DB2 コンパイラ指令の INIT オプションは、OO プログラム内で使用されると無効になります。 したがって、DB2 (INIT=PROT) コンパイラ指令の機能を獲得するには、OO ではないモジュールをインクルードして、それをこの指令でコンパイルします。

• METHOD 内で EXEC SQL WHENEVER 文を使用すると、SQL 文を持つ同一 CLASS 内でコード化された追加 METHOD は、先行する定義済み WHENEVER 文内で参照されるセクションを持つ必要があります。これを行わないと、セクションが定義されていないことを示すコンパイルエラーが発生します。この制限は、他に EXEC SQL WHENEVER 文を定義することで回避することができます。

8.3.10 入れ子の COBOL プログラムのサポート

DB2 ECM では、入れ子の COBOL プログラムを用いて作業することができます。

デフォルトでは、入れ子の COBOL プログラムのすべてに DB2 インターフェイスコードが生成されます。これを避けるには、DB2 指令 IGNORE-NESTED を使用してください。IGNORE-NESTED を適切に使用するには、次の制限に注意してください。

• DB2 インターフェイスコードを生成するプログラム中に PROGRAM-ID を指定してください。指定しない場合は、エラーが発生します。

DB2 の初期のバージョンでは、実行時に SQL 構文でデータベースへ接続する方法を提供していませんでした。そのため、呼び出しを適切な SQL API ルーチンにコード化する必要がありました。Micro Focus 製品の以前のバージョンは、CONNECT 機能を行うために、SQLINIT モジュールまたは SQLINI2 モジュールを提供していましたが、これらのルーチンは現在は提供されていません。代わりに、DB2 ECM が DB2 コンパイラ指令の INIT オプションの設定に応じて、適切な CONNECT 文を生成します。

INIT 指令には、アプリケーションが異常終了した場合でも、データベース接続を正しく終了させる追加オプションがあります。これにより、データベースの破損を防ぎます。アプリケーションが異常終了した場合には、最後に行った COMMIT 以降の変更はすべてロールバックされます。このデータベース保護は、DB2 コンパイラ指令で INIT=PROT オプションを指定することで選択できます。

INIT オプションは、1 つのアプリケーションに対して一度しか設定できません。他の SQL プログラムから呼び出された SQL プログラムには INIT オプションを設定できません。その代わりに、実行単位で最初に実行される SQL プログラムに INIT オプションを指定することができます。INIT オプションを持つアプリケーションで複数のモジュールをコンパイルすると、プログラムが異常終了する可能性があります。

DB2(UDB-VERSION=V7)

* critical errror - DB2Initialize API not found
* Try using directive DB2(UDB-VERSION=V6)
* to compile program

** DB00010 DB2 rejected an unspecified option. This error prevents SQL
** processing from continuing - further EXEC SQL statements
** will be ignored

8.7 コンパイル

COBOL コンパイラで SQL プログラムをコンパイルするのは次の 2 つの手順と論理的に同等です。

1. 事前コンパイルによって SQL 行をホスト言語文に変更する。
2. 結果ソースをコンパイルする。

これらの手順は、実際には単一のプロセスで行われており、COBOL コンパイラが DB2 ECM とともに行っています。

SQL プログラムをコンパイルする前に、権限が与えられていなくてはなりません。権限は通常 DB2 Database Administrator が授与します。コンパイルには次のいずれかの権限が必要です。

• sysadm 権限または dbadm 権限
• BINDADD： パッケージが存在しない場合の権限で、次のいずれかが授与されます。
  • IMPLICIT_SCHEMA： パッケージのスキーマ名が存在しない場合の、データベース上の権限。
  • CREATIN： パッケージのスキーマ名が存在する場合の、スキーマ上の権限。
  • ALTERIN： パッケージが存在する場合の、スキーマ上の権限。
  • BIND： パッケージが存在する場合の、パッケージ上の権限。

ユーザは、アプリケーションの静的 SQL 文をコンパイルするのに必要なすべてのテーブル権限(table privilege)も必要になります。集団に授与された権限は静的 SQL 文をチェックする権限としては使用できません。SQL プロジェクトにおいて権限がないためにプログラムのコンパイルに失敗する場合は、貴社の DB2 Database Administrator に問い合わせてください。

ユーザが SQL を使用しているということや、どのデータベースを使用しているかという情報を DB2 ECM に与えるには、DB2 コンパイラ指令を使用します。次の『DB2 コンパイラ指令』 を参照してください。

DB2 コンパイラ指令が必要となる場合を除いて、通常、埋め込み SQL を含むプログラムは SQL 以外のプログラムと同じ方法でコンパイルされます。追加モジュールをリンクする必要があり、実行可能 (バイナリ) ファイルを作成する場合にだけ、特別な動作が必要です。SQL コードを含むプログラムはそのほかのプログラムと同じようにアニメートすることができます。SQL 文内のホスト変数は、通常の COBOL データ項目と同じように調べることができます。

8.7.1 DB2 コンパイラ指令

HCOBND=d:/mydir/binds
export HCOBND

db2(bind=d:/mybinds/test.bnd)

"SYSIBM","SYS FUN",USER

801-S
**    External Compiler Module message
**    SQ0100 SQL1032N  No start database manager command was issued.
**    SQLSTATE=57019

cob -xvt db2prog.cbl -N nolitlink

cob -zvt db2prog.cbl -N nolitlink

COBOPT=pathname/filename cob -xot client_app client_app.c

cob -zOot fred fred.cbl

cob -zOot fred -Q -efred fred.cbl

cob -zOot fred -Q -efred fred.cbl -L/usr/lpp/db2_05_00/lib -ldb2 -ldb2gmf

cc -O -ot client_app client_app.c

cc -O -ot client_app client_app.c -brtllib

cob -yOot fred fred.cbl

cob -zOo fred -Q -efred fred.cbl

cob -zOot fred -Q -efred fred.cbl -L/usr/lpp/db2_05_00/lib -ldb2 -ldb2gmf

HCOBND=d:/production/binds
export HCOBND

DB2(bind=d:/test/test1.bnd)