アプリケーション構築の手引き

Micro Focus COBOL

この節では以下のトピックを取り上げています。

コンパイラーの使用

組み込み SQL および DB2 API 呼び出しを含むアプリケーションを開発しており、 Micro Focus COBOL コンパイラーを使用している場合には、以下の点に留意してください。

DB2 API と組み込み SQL アプリケーション

sqllib/samples/cobol_mf にあるスクリプト・ファイル bldapp には、 DB2 API および組み込み SQL アプリケーション・プログラムを構築するコマンドが含まれています。

第 1 パラメーター $1 には、ソース・ファイルの名前を指定します。 必要なパラメーターはこのパラメーターだけであり、 組み込み SQL を含まない DB2 API プログラムに必要な唯一のパラメーターです。 組み込み SQL プログラムを作成するためにはデータベースへの接続が必要なため、 3 つのパラメーターがオプションとして用意されています。 2 番目のパラメーターは $2 で、 接続するデータベースの名前を指定します。 3 番目のパラメーターは $3 で、 データベースのユーザー ID を指定します。 そしてもう 1 つが $4 で、 データベースのパスワードを指定します。

組み込み SQL プログラムの場合、bldapp は、 プリコンパイルおよびバインドのファイル embprep にパラメーターを渡します。 データベース名が指定されない場合は、 デフォルトの sample データベースが使用されます。 なお、ユーザー ID とパスワードのパラメーターは、 プログラムを構築するインスタンスとデータベースのあるインスタンスが異なる場合にのみ必要になります。

#! /bin/ksh
# bldapp script file -- HP-UX
# Builds a Micro Focus COBOL application program
# Usage:  bldapp <prog_name> [ <db_name> [ <userid> <password> ]]
# Set DB2PATH to where DB2 will be accessed.
# The default is the standard instance path.
DB2PATH=$HOME/sqllib
# If an embedded SQL program, precompile and bind it.
if [[ -f $1".sqb" ]]
then
  embprep $1 $2 $3 $4
fi
# Set COBCPY to include the DB2 COPY files directory.
export COBCPY=$COBCPY:$DB2PATH/include/cobol_mf
 
# Compile the checkerr.cbl error checking utility.
cob +DAportable -cx checkerr.cbl
 
# Compile the program.
cob +DAportable -cx $1.cbl
 
# Link the program.
cob +DAportable -x $1.o checkerr.o -L$DB2PATH/lib -ldb2 -ldb2gmf


bldapp のコンパイルおよびリンク・オプション

コンパイル・オプション

cob
Micro Focus COBOL コンパイラー。
+DAportable
PA_RISC 1 および 2.0 ワークステーションでの互換性を持つコードを生成します。
-cx
オブジェクト・モジュールにコンパイルします。

リンク・オプション

cob
コンパイラーをリンカーのフロントエンドとして使用します。
+DAportable
PA_RISC 1 および 2.0 ワークステーションでの互換性を持つコードを使用します。
-x
実行可能プログラムを指定します。
$1.o
プログラムのオブジェクト・ファイルを組み込みます。
checkerr.o
エラー検査用のユーティリティー・オブジェクト・ファイルを組み込みます。
-L$DB2PATH/lib
DB2 実行時共用ライブラリーのロケーションを指定します。 たとえば、$HOME/sqllib/lib
-ldb2
DB2 ライブラリーとリンクします。
-ldb2gmf
Micro Focus COBOL 用 DB2 例外ハンドラー・ライブラリーとリンクします。

他のコンパイラー・オプションについては、コンパイラーの資料をご覧ください。

ソース・ファイル client.cbl から非組み込み SQL サンプル・プログラム client を作成するには、 次のように入力します。

   bldapp client

結果として、実行可能ファイル client が作成されます。 sample データベースに対してこの実行可能ファイルを実行するには、 次のように入力します。

   client

組み込み SQL アプリケーションの構築および実行

ソース・ファイル updat.sqb から組み込み SQL アプリケーション updat を構築する方法には、 次の 3 つがあります。

  1. 同じインスタンスにあるサンプル・データベースに接続している場合は、 次のように入力します。
       bldapp updat
    
  2. 同じインスタンスにある他のデータベースに接続している場合は、 さらにデータベース名も入力します。
       bldapp updat database
    
  3. 他のインスタンスにあるデータベースに接続している場合は、 さらにそのデータベース・インスタンスのユーザー ID とパスワードも入力します。
       bldapp updat database userid password
    

結果として、実行可能ファイル updat が作成されます。

この組み込み SQL アプリケーションを実行する方法には次の 3 つがあります。

  1. 同じインスタンスにある sample データベースにアクセスする場合は、 ただ実行可能ファイルの名前を入力します。
       updat
    
  2. 同じインスタンスにある他のデータベースにアクセスする場合は、 実行可能ファイル名とデータベース名を入力します。
       updat database
    
  3. 他のインスタンスにあるデータベースにアクセスする場合は、 実行可能ファイル名、データベース名、 およびそのデータベース・インスタンスのユーザー ID とパスワードを入力します。
       updat database userid password
    

組み込み SQL ストアード・プロシージャー

sqllib/samples/cobol_mf にあるスクリプト・ファイル bldsrv には、 組み込み SQL ストアード・プロシージャーを作成するためのコマンドが含まれています。 スクリプト・ファイルは、 ストアード・プロシージャーをサーバー上の共用ライブラリーの中にコンパイルしますが、 それはクライアント・アプリケーションから呼び出すことができます。

第 1 パラメーター $1 には、ソース・ファイルの名前を指定します。 第 2 パラメーター $2 には、 接続先のデータベースの名前を指定します。 ストアード・プロシージャーは、 必ずデータベースが常駐するインスタンスに構築される必要があるため、 ユーザー ID やパスワードを指定するパラメーターはありません。

第 1 パラメーター (ソース・ファイル名) だけが必須です。 データベース名は任意で指定します。 データベース名を指定しない場合、 プログラムはデフォルトの sample データベースを使用します。 スクリプト・ファイルは、ソース・ファイル名 $1 を共用ライブラリー名として使います。

#! /bin/ksh
# bldsrv script file -- HP-UX
# Builds a Micro Focus COBOL stored procedure
# Usage: bldsrv <prog_name> [ <db_name> ]
# Set DB2PATH to where DB2 will be accessed.
# The default is the standard instance path.
DB2PATH=$HOME/sqllib
# Precompile and bind the program.
embprep $1 $2
# Set COBCPY to include the DB2 COPY files directory.
export COBCPY=$COBCPY:$DB2PATH/include/cobol_mf
 
# Compile the program.
cob +DAportable +z -cx $1.cbl
 
# Link the program.
ld -b -o $1 $1.o -L$DB2PATH/lib -ldb2 -ldb2gmf \
   -L$COBDIR/coblib -lcobol -lcrtn
 
# Copy the shared library to the sqllib/function subdirectory.
# The user must have write permission to this directory.
rm -f $DB2PATH/function/$1
cp $1 $DB2PATH/function

bldsrv のコンパイルおよびリンク・オプション

コンパイル・オプション

cob
COBOL コンパイラー。
+DAportable
PA_RISC 1 および 2.0 ワークステーションでの互換性を持つコードを生成します。
+z
位置独立コードを生成します。
-cx
オブジェクト・モジュールにコンパイルします。

リンク・オプション

ld
リンク編集にリンカーを使用します。
-b
通常の実行可能ファイルではなく、共用ライブラリーを作成します。
-o $1
実行可能ファイルを指定します。
$1.o
プログラムのオブジェクト・ファイルを組み込みます。
-L$DB2PATH/lib
DB2 実行時共用ライブラリーのロケーションを指定します。 たとえば、$HOME/sqllib/lib
-ldb2
DB2 共用ライブラリーにリンクします。
-ldb2gmf
Micro Focus COBOL 用 DB2 例外ハンドラー・ライブラリーとリンクします。
-L$COBDIR/coblib
COBOL 実行時ライブラリーのロケーションを指定します。
-lcobol
COBOL ライブラリーにリンクします。
-lcrtn
crtn ライブラリーにリンクします。

他のコンパイラー・オプションについては、コンパイラーの資料をご覧ください。

サンプル・データベースに接続している場合に、 ソース・ファイル outsrv.sqb からサンプル・プログラム outsrv を構築するには、 次のように入力します。

   bldsrv outsrv

他のデータベースに接続しているときは、 さらにデータベース名も入力します。

   bldsrv outsrv database

スクリプト・ファイルは、 ストアード・プロシージャーを sqllib/function ディレクトリーにコピーします。

必要であれば、ストアード・プロシージャーにファイル・モードを設定して、 クライアント・アプリケーションからアクセスできるようにします。

ストアード・プロシージャー outsrv を作成したなら、 そのストアード・プロシージャーを呼び出すクライアント・アプリケーション outcli を構築できます。 outcli は、 スクリプト・ファイル bldapp を使用して構築することができます。 詳細については、 "DB2 API と組み込み SQL アプリケーション"を参照してください。

ストアード・プロシージャーを呼び出すためには、 次のように入力してサンプル・クライアント・アプリケーションを実行します。

   outcli database userid password

ここで、それぞれは次のものを表します。

database
接続先のデータベースの名前です。 名前は、sample かその別名、またはその他のデータベース名にすることができます。

userid
有効なユーザー ID です。

password
有効なパスワードです。

クライアント・アプリケーションはストアード・プロシージャー・ライブラリー outsrv にアクセスし、 ストアード・プロシージャー関数をサーバー・データベース上で実行します。 この出力は、クライアント・アプリケーションに戻されます。

ストアード・プロシージャーの終了

ストアード・プロシージャーを開発したならば、 次のステートメントを使って、それを終了します。

move SQLZ-HOLD-PROC to return-code.

このステートメントで、 ストアード・プロシージャーはクライアント・アプリケーションに正しく戻ります。


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]