クライアントのコーディング

05 USRNAME PIC X(30).
05 CLTNAME PIC X(30).
05 PASSWD PIC X(30).
05 GRPNAME PIC X(30).
05 NOTIFICATION-FLAG PIC S9(9) COMP-5.
88 TPU-SIG VALUE 1.
88 TPU-DIP VALUE 2.
88 TPU-IGN VALUE 3.
05 ACCESS-FLAG PIC S9(9) COMP-5.
88 TPSA-FASTPATH VALUE 1.
88 TPSA-PROTECTED VALUE 2.
05 DATALEN PIC S9(9) COMP-5.

フィールド	説明
USRNAME	呼び出し元を表す名前。このフィールドには、UNIX コマンドの getuid(2) の戻り値を指定することもできます。USRNAME には、MAXTIDENT で指定された文字数 (30 文字) までの値を指定できます。
CLTNAME	アプリケーション定義のセマンティクスに従ったクライアント名。CLTNAME には、MAXTIDENT で指定された文字数 (30 文字) までの値を指定できます。
PASSWD	非暗号化形式のアプリケーション・パスワード。TUXCONFIG ファイルに格納されたアプリケーション・パスワードとの認証で、TPINITIALIZE によって使用されます。PASSWD には、MAXTIDENT の値までの文字列を指定します。
GRPNAME	クライアントを対応付けるリソース・マネージャ・グループの名前。クライアントは、グローバル・トランザクションの一部として、XA 準拠のリソース・マネージャにアクセスできるようになります。GRPNAME には、MAXTIDENT で指定された文字数 (30 文字) までの値を指定できます。ただし、現在のところ、GRPNAME は SPACES として渡す必要があります。その場合、クライアントはリソース・マネージャ・グループに対応付けられず、デフォルトのクライアント・グループに属することを指定します。
NOTIFICATION-FLAG	使用する通知メカニズム、およびシステム・アクセス・モード。有効な値については、任意通知型通知の処理を参照してください。
ACCESS-FLAG	使用するシステム・アクセス・モード。使用できる値については、システム・アクセス・モードを参照してください。
DATALEN	認証サービスに送信されるアプリケーション固有データの長さ。ネイティブ・クライアントの場合、このデータはシステムによって符号化されずに、クライアントによって提供される認証サービスに渡されます。ワークステーション・クライアントの場合、クライアント認証はシステムによって行われ、暗号化形式でネットワークを介して渡されます。

フラグ	説明
TPU_SIG	シグナルによる任意通知を選択します。このフラグは、シングル・スレッドでシングル・コンテキストのアプリケーションのみで使用します。このモードの利点は、直ちに通知できることです。このモードには、次のような不都合があります。ネイティブ・クライアントを実行している場合、呼び出し元プロセスで送信元プロセスと同じ UID を使用する必要があります。ワークステーション・クライアントには、この制約はありません。すべてのプラットフォーム上で TPU_SIG が使用できるわけではありません。特に、MS-DOS ワークステーションでは使用できません。システムや環境の要件を満たしていない場合にこのフラグを指定すると、フラグに TPU_DIP が設定され、ログにイベントが記録されます。
TPU_DIP (デフォルト)	ディップ・インを使用した任意通知型メッセージを指定します。クライアントは TPSETUNSOL 呼び出しを使用してメッセージ処理ルーチンの名前を指定し、TPCHKUNSOL 呼び出しを使用して待機中の任意通知型メッセージを確認できます。
TPU_THREAD	別のスレッド内の THREAD 通知を指定します。このフラグは、マルチスレッドをサポートするプラットフォーム専用です。マルチスレッドがサポートされていないプラットフォームで TPU_THREAD を指定すると、無効な引数として処理されます。その結果、エラーが返されて、TP-STATUS に TPEINVAL が設定されます。
TPU_IGN	任意通知を無視します。

フラグ

説明

TPU_SIG

シグナルによる任意通知を選択します。このフラグは、シングル・スレッドでシングル・コンテキストのアプリケーションのみで使用します。このモードの利点は、直ちに通知できることです。このモードには、次のような不都合があります。

ネイティブ・クライアントを実行している場合、呼び出し元プロセスで送信元プロセスと同じ UID を使用する必要があります。ワークステーション・クライアントには、この制約はありません。

すべてのプラットフォーム上で TPU_SIG が使用できるわけではありません。特に、MS-DOS ワークステーションでは使用できません。

システムや環境の要件を満たしていない場合にこのフラグを指定すると、フラグに TPU_DIP が設定され、ログにイベントが記録されます。

TPU_DIP (デフォルト)

ディップ・インを使用した任意通知型メッセージを指定します。クライアントは TPSETUNSOL 呼び出しを使用してメッセージ処理ルーチンの名前を指定し、TPCHKUNSOL 呼び出しを使用して待機中の任意通知型メッセージを確認できます。

TPU_THREAD

別のスレッド内の THREAD 通知を指定します。このフラグは、マルチスレッドをサポートするプラットフォーム専用です。マルチスレッドがサポートされていないプラットフォームで TPU_THREAD を指定すると、無効な引数として処理されます。その結果、エラーが返されて、TP-STATUS に TPEINVAL が設定されます。

TPU_IGN

任意通知を無視します。

モード	説明
TPSA-PROTECTED	アプリケーション内で ATMI 関数を呼び出し、共用メモリを使用して BEA Tuxedo システムの内部テーブルにアクセスします。BEA Tuxedo システム・ライブラリ外のアプリケーション・コードからのアクセスに対して、共用メモリを保護します。この値は、NO_OVERRIDE が指定されている場合を除き、UBBCONFIG の値に優先します。UBBCONFIG の詳細については、『BEA Tuxedo アプリケーションの設定』を参照してください。
TPSA-FASTPATH (デフォルト)	アプリケーション・コード内で ATMI 関数を呼び出し、共用メモリを使用して BEA Tuxedo システム内部にアクセスします。BEA Tuxedo システム・ライブラリ外のアプリケーション・コードからのアクセスに対して、共用メモリを保護しません。この値は、NO_OVERRIDE が指定されている場合を除き、UBBCONFIG の値に優先します。UBBCONFIG の詳細については、『BEA Tuxedo アプリケーションの設定』を参照してください。

モード

説明

TPSA-PROTECTED

アプリケーション内で ATMI 関数を呼び出し、共用メモリを使用して BEA Tuxedo システムの内部テーブルにアクセスします。BEA Tuxedo システム・ライブラリ外のアプリケーション・コードからのアクセスに対して、共用メモリを保護します。この値は、NO_OVERRIDE が指定されている場合を除き、UBBCONFIG の値に優先します。UBBCONFIG の詳細については、『BEA Tuxedo アプリケーションの設定』を参照してください。

TPSA-FASTPATH (デフォルト)

アプリケーション・コード内で ATMI 関数を呼び出し、共用メモリを使用して BEA Tuxedo システム内部にアクセスします。BEA Tuxedo システム・ライブラリ外のアプリケーション・コードからのアクセスに対して、共用メモリを保護しません。この値は、NO_OVERRIDE が指定されている場合を除き、UBBCONFIG の値に優先します。UBBCONFIG の詳細については、『BEA Tuxedo アプリケーションの設定』を参照してください。

オプションまたは引数 . .	説明 . .
filename.cbl	コンパイルする COBOL 言語のアプリケーション。
-o filename	実行可能な出力ファイル。出力ファイルのデフォルト名は a.out です。
-f filenames	BEA Tuxedo システムのライブラリより先にリンクされるファイルのリスト。-f オプションは、コマンド行で複数回指定できます。また、各 -f に複数のファイル名を指定できます。COBOL プログラム・ファイル (file.cbl) を指定すると、リンクされる前にコンパイルが行われます。ほかのオブジェクト・ファイル (file.o) を個別に、またはアーカイブ・ファイル (file.a) にまとめて指定することもできます。
-l filenames	BEA Tuxedo システム・ライブラリの後にリンクされるファイルのリスト。-l オプションは、コマンド行で複数回指定できます。また、各 -l に複数のファイル名を指定できます。COBOL プログラム・ファイル (file.cbl) を指定すると、リンクされる前にコンパイルが行われます。ほかのオブジェクト・ファイル (file.o) を個別に、またはアーカイブ・ファイル (file.a) にまとめて指定することもできます。
-r	実行可能サーバにリンクされるリソース・マネージャのアクセス・ライブラリ。アプリケーション管理者は、buildtms(1) コマンドを使用して、すべての有効なリソース・マネージャ情報を $TUXDIR/updataobj/RM ファイルに事前に定義しておく必要があります。指定できるリソース・マネージャは 1 つだけです。詳細については、『BEA Tuxedo アプリケーションの設定』を参照してください。

オプションまたは引数 . .

説明 . .

filename.cbl

コンパイルする COBOL 言語のアプリケーション。

-o filename

実行可能な出力ファイル。出力ファイルのデフォルト名は a.out です。

-f filenames

BEA Tuxedo システムのライブラリより先にリンクされるファイルのリスト。-f オプションは、コマンド行で複数回指定できます。また、各 -f に複数のファイル名を指定できます。COBOL プログラム・ファイル (file.cbl) を指定すると、リンクされる前にコンパイルが行われます。ほかのオブジェクト・ファイル (file.o) を個別に、またはアーカイブ・ファイル (file.a) にまとめて指定することもできます。

-l filenames

BEA Tuxedo システム・ライブラリの後にリンクされるファイルのリスト。-l オプションは、コマンド行で複数回指定できます。また、各 -l に複数のファイル名を指定できます。COBOL プログラム・ファイル (file.cbl) を指定すると、リンクされる前にコンパイルが行われます。ほかのオブジェクト・ファイル (file.o) を個別に、またはアーカイブ・ファイル (file.a) にまとめて指定することもできます。

-r

実行可能サーバにリンクされるリソース・マネージャのアクセス・ライブラリ。アプリケーション管理者は、buildtms(1) コマンドを使用して、すべての有効なリソース・マネージャ情報を $TUXDIR/updataobj/RM ファイルに事前に定義しておく必要があります。指定できるリソース・マネージャは 1 つだけです。詳細については、『BEA Tuxedo アプリケーションの設定』を参照してください。

. . .
Check level of security
CALL TPSETUNSOL to name your handler routine for TPU-DIP
get USRNAME, CLTNAME
prompt for application PASSWD
SET TPU-DIP TO TRUE.
CALL "TPINITIALIZE" USING TPINFDEF-REC
USER-DATA-REC
TPSTATUS-REC.
IF NOT TPOK
error processing
. . .
make service call
receive the reply
check for unsolicited messages
. . .
CALL "TPTERM" USING TPSTATUS-REC.
IF NOT TPOK
error processing
.. .
EXIT PROGRAM.

IDENTIFICATION DIVISION.
PROGRAM-ID. FIG1-3.
AUTHOR. TUXEDO DEVELOPMENT.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
*
WORKING-STORAGE SECTION.
*****************************************************
* Tuxedo の定義
*****************************************************
01 TPSTATUS-REC.
COPY TPSTATUS.
*
01 TPINFDEF-REC.
COPY TPINFDEF.
*****************************************************
* ログ・メッセージの定義
*****************************************************
01 LOGMSG.
05 FILLER PIC X(10) VALUE "FIG12-3 =>".
05 LOGMSG-TEXT PIC X(50).
01 LOGMSG-LEN PIC S9(9) COMP-5.
*
01 USER-DATA-REC PIC X(75).
******************************************************
PROCEDURE DIVISION.
START-HERE.
MOVE LENGTH OF LOGMSG TO LOGMSG-LEN.
*****************************************************
* システムへのクライアントの登録
*****************************************************
MOVE SPACES TO USRNAME.
MOVE SPACES TO CLTNAME.
MOVE SPACES TO PASSWD.
MOVE SPACES TO GRPNAME.
MOVE ZERO TO DATALEN.
SET TPU-DIP TO TRUE.
*
CALL "TPINITIALIZE" USING TPINFDEF-REC
USER-DATA-REC
TPSTATUS-REC.
IF NOT TPOK
MOVE "TPINITIALIZE FAILED" TO LOGMSG-TEXT
PERFORM DO-USERLOG
PERFORM EXIT-PROGRAM.
*****************************************************
* アプリケーション固有のコード
*****************************************************
.. .
*****************************************************
* アプリケーションからの分離
*****************************************************
CALL "TPTERM" USING TPSTATUS-REC.
IF NOT TPOK
MOVE "TPTERM FAILED" TO LOGMSG-TEXT
PERFORM DO-USERLOG.
EXIT-PROGRAM.
STOP RUN.
*****************************************************
* ユーザ・ログにメッセージを記録
*****************************************************
DO-USERLOG.
CALL "USERLOG" USING LOGMSG
LOGMSG-LEN
TPSTATUS-REC.