Interstage Application Server アプリケーション作成ガイド (データベース連携サービス編) |
目次 索引 |
付録E サンプル(COBOL) |
トランザクション運用のアプリケーションについてCOBOLを使用したサンプルプログラムをそれぞれ以下の内容で説明します。
本サンプルによって行う運用について以下に示します。
本サンプルでは、サーバアプリケーションからSymfoware/RDBにアクセスします。
本サンプルのファイル構成を、以下に示します。
ファイルはすべて、“$TD_HOME/sample/OTS”配下に格納されています。
※$TD_HOMEは、トランザクションサービスのインストールディレクトリを示します。
No |
ファイルの概要 |
ファイル名 |
---|---|---|
(1) |
Makefile |
Makefile |
(2) |
IDLファイル |
otssample.idl |
(3) |
サーバアプリケーションソース |
otssample_s.ecob |
(4) |
クライアントアプリケーションソース |
otssample_c.c |
(5) |
ワークユニット定義ファイル |
otssample.wu |
(6) |
リソース定義ファイル |
rdbresource.def |
(7) |
サンプルデータベース作成用ファイル |
crtdbddl |
(8) |
動作確認用プログラム |
rdbselect.ecob |
コンパイルの方法について説明します。
コンパイルの前の準備について説明します。
(1) Symfoware/RDBがインストールされていることを確認してください。
(2) COBOLコンパイラがインストールされており、かつ動作可能なことを確認してください。
(3) 環境にあわせてMakefileを修正します。
(4) 以下の例に従って環境変数を設定してください。
%setenv OD_HOME /opt/FSUNod %setenv CORBA ${OD_HOME}/include/COBOL %setenv OTS_HOME /opt/FSUNots %setenv TD_HOME /opt/FSUNtd
(5) CORBAサービスが起動していることを確認してください。
アプリケーションをコンパイルする手順を説明します。説明には、以下の記号を使用しま す。
(1) makeコマンドを実行し、コンパイルを行います。
%cd /$CURRENT %make
makeが失敗する場合には、以下のコマンドを実行してください。
%make remake
(2) (1)が失敗する場合は、コンパイルの準備作業を確認してください。
サンプルプログラムの実行方法について説明します。
Interstageのセットアップ
isinitコマンドを投入して、Interstageの動作環境をセットアップしてください。
Symfoware/RDB用のリソース管理プログラムを、データベース連携サービスのインストールディレクトリ配下の/program/rsc/fjotsrsc_symfoとして提供していますので、それを使用してください。それ以外の場合に作成する必要がある場合は、以下の例を参考にリソース管理プログラムを作成してください。このコマンドによってリソース管理プログラム“rdbresource”が作成されます。
% cd $CURRENT % otslinkrsc -l $OTS_HOME/lib/libotsxasym.o -r "-L$RDBOPT/FSUNrdb2b/lib -lsqldrv -lrdbxa" -o rdbresource
※$OTS_HOMEは、データベース連携サービスのインストールディレクトリです。
※$RDBOPTは、Symfoware/RDBのインストールディレクトリです。
サンプルのリソース定義ファイルを参照し、動作環境にあわせて修正してください。修正にはテキストエディタを使用してください。リソース管理プログラムの登録には、リソース定義ファイル名を指定して行います。リソース管理プログラムを起動するマシンで、必ずotssetrscコマンドで登録してください。修正したリソース定義ファイルはリソース環境定義ディレクトリに格納してください。
以下の例を参考にSymfoware/RDB用のAPMを作成してください。このコマンドによってAPM“rdb”が作成されます。
# tdlinkapm -l $OTS_HOME/lib/libotsxasym.o -r "-L$RDBOPT/FSUNrdb2b/lib -lsqldrv -lrdbxa" -o rdb
※ $OTS_HOMEは、データベース連携サービスのインストールディレクトリです。
※ $RDBOPTは、Symfoware/RDBのインストールディレクトリです。
サンプルのワークユニット定義ファイルを参照し、動作環境にあわせて修正してください。修正にはテキストエディタを使用してください。
修正したワークユニット定義ファイルは、ワークユニット定義ディレクトリに格納してください。
次にワークユニット定義を登録します。
%isaddwudef otssample.wu
#rdbddlex crtdbddl #rdbfmt -mi -i RDB1.DSICAR
Symfoware/RDBを以下のとおり起動してください。
#rdbstart
isstartコマンドを投入して、Interstageを起動してください。
otsstartrscコマンドを投入して、リソース管理プログラムを起動してください。
以下のとおりリソース管理プログラムを起動します。
#otsstartrsc -pg $TD_HOME/sample/otsc/rdbresouce2 -n rdbresouce2
以下のとおり、ワークユニットを起動します。
%isstartwu OTSSAMPLE
以下のとおり、クライアントアプリケーションを起動します。
%otssample_c
本サンプルプログラムではクライアントアプリケーションを起動するたびにデータベースRDB1のテーブルCAR_TABLEへレコードを追加します。このためクライアントアプリケーションを起動する前後で以下の確認用アプリケーションを実行すると、動作を確認することができます。
%rdbselect
レコードの追加が確認できない場合は、
“$TD_HOME/sample/OTS/OTSSAMPLE/pppp/stdout”(ppppはpid)ファイルを参照し、原因を取り除いてください。
目次 索引 |