bea ホーム | 製品 | dev2dev | support | askBEA |
![]() |
![]() |
|
![]() |
e-docs > Tuxedo > COBOL を使用した Tuxedo アプリケーションのプログラミング > Workstation コンポーネントに対する COBOL 言語のバインディング |
COBOL を使用した Tuxedo アプリケーションのプログラミング
|
Workstation コンポーネントに対する COBOL 言語のバインディング
ここでは、次の内容について説明します。
Workstation プラットフォームの詳細については、『BEA Tuxedo Workstation コンポーネント』を参照してください。
UNIX のバインディング
以下に、COBOL 言語を使用して UNIX 上で BEA Tuxedo アプリケーションを開発する場合に、クライアント・プログラムを作成してビルドする方法、および正しい環境変数の設定方法について説明します。
クライアント・プログラムの作成
UNIX プラットフォーム用 COBOL クライアント・プログラムは、BEA Tuxedo 管理ドメインで COBOL クライアントを開発する場合と同じように開発できます。すべての ATMI 呼び出しを使用することができます。
クライアント・プログラムを作成する
ワークステーション・クライアント・プログラムをコンパイルしてリンクするには、buildclient(1) コマンドを使用します。ネイティブ・ノードで UNIX ワークステーション・クライアントをビルドする場合、-w オプションを指定して、ワークステーション・ライブラリを使用してクライアントがビルドされるようにします。
ネイティブ・ノードでクライアントをビルドする場合に、ネイティブ・ライブラリとワークステーション・ライブラリの両方が存在しているときは、デフォルトでネイティブ・ライブラリが使用されます。その場合、-w オプションを指定すると、ワークステーション・クライアントに対応するライブラリが必ず使用されます。
ワークステーション・ライブラリのみが存在する場合は、-w を指定する必要はありません。
次のコード例は、ネイティブ・ノード上で buildclient コマンドを使用する方法を示しています。
コード リスト 12-1 UNIX プラットフォームでの buildclient の実行
ALTCC=cobcc ALTCFLAGS="-I /APPDIR/include"
COBCPY=$TUXDIR/cobinclude
COBOPT="-C ANS85 -C ALIGN=8 -C NOIBMCOMP -C TRUNC=ANSI -C OSEXT=cbl"
export COBOPT COBCPY ALTCC ALTCFLAGS
buildclient -C -w -o empclient -f name.cbl -f "userlib1.a userlib2.a"
-o オプションは、出力ファイルに名前を指定する場合に使用します。-f オプションが指定された入力ファイルは、システム・ライブラリの前にリンクされます。
上記のコード例に示してあるように、TUXDIR 環境変数を使用して、buildclient コマンドがシステム・ライブラリの場所を認識できるようにします。TUXDIR は必ず指定してください。CC 環境変数には、デフォルトで cc が設定されます。ただし、ALTCC を使用して、別のコンパイラを設定することもできます。
環境変数を設定する
ワークステーション・クライアントでは、いくつかの環境変数を使用します。
次の表は、ワークステーション・クライアントがアプリケーションに参加する場合に、TPINITIALIZE で確認される環境変数です。
表 12-1 UNIX プラットフォーム上の TPINITIALIZE で確認される環境変数
使用されている BEA Tuxedo システムのコンポーネントによっては、UNIX ワークステーション上の Workstation COBOL クライアントでほかの環境変数が必要になる場合もあります。 注記 MicroFocus では、共用オブジェクトとして LIBNSL.a が提供されています。このオブジェクトは、ワークステーション・クライアントのリンク時に buildclient で必要になります。MicroFocus COBOL では、UNIX 3.2 上で共用オブジェクトがサポートされていません。そのため、UNIX 3.2 版 Workstation はサポートされていません。
Microsoft Windows のバインディング
以下に、COBOL 言語を使用して Microsoft Windows プラットフォーム上で BEA Tuxedo アプリケーションを開発する場合に、クライアント・プログラムを作成してビルドする方法、ACCEPT/DISPLAY クライアントをビルドする方法、ネットワークの動作をブロックする方法、そしてネットワーク環境を復元する方法について説明します。
クライアント・プログラムの作成
プログラム固有のすべての ATMI 呼び出しを使用することができます。
クライアント・プログラムのビルド
ATMI を呼び出す COBOL のソース・コードをコンパイルするには、LITLINK オプションを指定して、COBOL コンパイラを使用する必要があります。ワークステーション・クライアントのオブジェクト・ファイルをリンクするには、buildclient(1) コマンドを使用します。コマンドの構文はわかりやすいものですが、その使い方は使用しているコンパイラによって異なります。
次のコード例は、buildclient コマンドの使用方法を示しています。
コード リスト 12-2 Windows プラットフォームでの buildclient の実行
COBCPY=C:¥TUXEDO¥COBINC
COBDIR=C:¥COBOL¥LBR;C:¥COBOL¥EXEDLL
PATH=C:¥COBOL¥EXEDLL;...
TUXDIR=C:¥tuxedo
LIB=C:¥NET¥TOOLKIT¥LIB;C:¥MSVC¥LIB;C:¥TUXEDO¥LIB;C:¥COBOL¥LIB
buildclient -C -o EMP.EXE -f EMP -f "/NOD/NOI/NOE/CO/SE:300" -l WLIBSOCK
For Windows NT:
buildclient -C -o EMP.EXE -f empobj
次の表は、前述のコード例で使用されている buildclient コマンドのオプションを示しています。
表 12-2 Windows プラットフォーム用 buildclient コマンドのオプション
ACCEPT/DISPLAY クライアントのビルド 次のコード例は、CSIMPAPP などの ACCEPT/DISPLAY アプリケーションに対する実行可能クライアントをビルドする方法を示しています。 コード リスト 12-3 ACCEPT/DISPLAY クライアントのビルドa) compile the COBOL module and create a file.obj
cobol file.cbl omf(obj) litlink;
b) use the following link statement
link FILE+cblwinaf,,,¥
wcobatmi+cobws+wtuxws+ ¥
lcobol+lcoboldw+cobw+cobfp87w+ ¥
wlibsock,FILE.def /nod/noe;
For Windows NT the link statement is:
cbllink -oEMP.exe EMP.obj ¥
cobws.lib ncobatmi.lib wtuxws32.lib ¥
libcmt.lib user32.lib
![]() |
![]() |
![]() |
![]() |
||
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |