イベント・ベースのクライアントおよびサーバのコーディング

通知処理	説明
任意通知型通知メッセージ	クライアントは、TPNOTIFY ルーチンで送信された場合と同じように、クライアントの任意通知型メッセージ処理ルーチンでイベント通知メッセージを受信します。
サービス呼び出し	サーバは、TPACALL によって送信された場合と同じように、サービス・ルーチンに対する入力としてイベント通知メッセージを受け取ります。
信頼性の高いキュー	イベント通知メッセージは、TPDEQUEUE(3cbl) を使用して、BEA Tuxedo システムの高信頼性キューに格納されます。イベント通知レコードは、内容が要求されるまで格納されます。BEA Tuxedo システムのクライアントまたはサーバ・プロセスで TPDEQUEUE(3cbl) を呼び出して、この通知レコードを取り出すことができます。または、TMQFORWARD(5) を設定して、通知レコードを取り出す BEA Tuxedo システムのサービス・ルーチンを自動的にディスパッチすることもできます。 /Q の詳細については、『BEA Tuxedo /Q コンポーネント』を参照してください。

通知処理

説明

任意通知型通知メッセージ

クライアントは、TPNOTIFY ルーチンで送信された場合と同じように、クライアントの任意通知型メッセージ処理ルーチンでイベント通知メッセージを受信します。

サービス呼び出し

サーバは、TPACALL によって送信された場合と同じように、サービス・ルーチンに対する入力としてイベント通知メッセージを受け取ります。

信頼性の高いキュー

イベント通知メッセージは、TPDEQUEUE(3cbl) を使用して、BEA Tuxedo システムの高信頼性キューに格納されます。イベント通知レコードは、内容が要求されるまで格納されます。BEA Tuxedo システムのクライアントまたはサーバ・プロセスで TPDEQUEUE(3cbl) を呼び出して、この通知レコードを取り出すことができます。または、TMQFORWARD(5) を設定して、通知レコードを取り出す BEA Tuxedo システムのサービス・ルーチンを自動的にディスパッチすることもできます。

/Q の詳細については、『BEA Tuxedo /Q コンポーネント』を参照してください。

*
* TPSETUNSOL を呼び出します。 - COBOL 任意通知型メッセージ・ハンドラを設定します。
* TMDISPATCH9 ルーチンが呼び出されます。
*
MOVE 9 to CURR-ROUTINE.
CALL "TPSETUNSOL" USING
CURR-ROUTINE
PREV-ROUTINE
TPSTATUS-REC.
IF NOT TPOK
Routine TMDISPATCH9 will receive unsolicited messages
ELSE
Process error condition

メンバ	説明
LMID	クライアントの論理マシン識別子を指すポインタ。SPACES 値をワイルドカードとして使用できるので、複数のクライアントにメッセージを送信できます。
USRNAME	クライアント・プロセスのユーザ名が存在する場合、そのユーザ名。SPACES 値をワイルドカードとして使用できるので、複数のクライアントにメッセージを送信できます。
CLTNAME	クライアント・プロセスのクライアント名が存在する場合、そのクライアント名。NULL 値をワイルドカードとして使用できるので、複数のクライアントにメッセージを送信できます。
設定値 (TPBLOCK-FLAG など)	TPBROADCAST コマンドの設定値。使用できる設定値については、『BEA Tuxedo COBOL リファレンス』の TPBROADCAST(3cbl) を参照してください。

メンバ

説明

LMID

クライアントの論理マシン識別子を指すポインタ。SPACES 値をワイルドカードとして使用できるので、複数のクライアントにメッセージを送信できます。

USRNAME

クライアント・プロセスのユーザ名が存在する場合、そのユーザ名。SPACES 値をワイルドカードとして使用できるので、複数のクライアントにメッセージを送信できます。

CLTNAME

クライアント・プロセスのクライアント名が存在する場合、そのクライアント名。NULL 値をワイルドカードとして使用できるので、複数のクライアントにメッセージを送信できます。

設定値 (TPBLOCK-FLAG など)

TPBROADCAST コマンドの設定値。使用できる設定値については、『BEA Tuxedo COBOL リファレンス』の TPBROADCAST(3cbl) を参照してください。

. . .
**************************************************
* ブロードキャストにレコードを用意します。
**************************************************
MOVE "HELLO, WORLD" TO DATA-REC.
MOVE 11 TO LEN.
MOVE "STRING" TO REC-TYPE.
*
SET TPNOBLOCK TO TRUE.
SET TPNOTIME TO TRUE.
SET TPSIGRSTRT TO TRUE.
*
MOVE SPACES TO LMID.
MOVE SPACES TO USRNAME.
MOVE SPACES TO CLTNAME.
CALL "TPBROADCAST" USING TPBCTDEF-REC
TPTYPE-REC
DATA-REC
TPSTATUS-REC.
IF NOT TPOK
error processing

*
* 任意通知型メッセージを確認します。
*
CALL "TPCHKUNSOL" USING MESS-NUM
TPSTATUS-REC.
*
IF TPOK
IF MESS-NUM IS = 0
No messages were processed by the
unsolicited routine
ELSE
MESS-NUM number of messages were
processed by the unsolicited routine
END-IF
ELSE
process error
END-IF

IDENTIFICATION DIVISION.
PROGRAM-ID. TMDISPATCH9.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. USL-486.
OBJECT-COMPUTER. USL-486.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
*
01 TPTYPE-REC.
COPY TPTYPE.
*
01 TPSTATUS-REC.
COPY TPSTATUS.
*
01 DATA-REC PIC X(1000).
*
PROCEDURE DIVISION.
*
A-000.
*
MOVE "CARRAY" TO REC-TYPE.
MOVE 1000 TO LEN.
CALL "TPGETUNSOL" USING TPTYPE-REC
DATA-REC
TPSTATUS-REC.
IF NOT TPOK
error processing
*
Process message
DISPLAY "TPGETUNSOL IS TPOK".
DISPLAY "MESSAGE IS" DATA-REC.
DISPLAY "LENGTH IS" LEN.
EXIT PROGRAM.
*

05 TPBLOCK-FLAG PIC S9(9) COMP-5.
88 TPBLOCK VALUE 0.
88 TPNOBLOCK VALUE 1.
05 TPTRAN-FLAG PIC S9(9) COMP-5.
88 TPTRAN VALUE 0.
88 TPNOTRAN VALUE 1.
05 TPREPLY-FLAG PIC S9(9) COMP-5.
88 TPREPLY VALUE 0.
88 TPNOREPLY VALUE 1.
05 TPTIME-FLAG PIC S9(9) COMP-5.
88 TPTIME VALUE 0.
88 TPNOTIME VALUE 1.
05 TPSIGRSTRT-FLAG PIC S9(9) COMP-5.
88 TPNOSIGRSTRT VALUE 0.
88 TPSIGRSTRT VALUE 1.
05 TPEV-METHOD-FLAG PIC S9(9) COMP-5.
88 TPEVNOTIFY VALUE 0.
88 TPEVSERVICE VALUE 1.
88 TPEVQUEUE VALUE 2.
05 TPEV-PERSIST-FLAG PIC S9(9) COMP-5.
88 TPEVNOPERSIST VALUE 0.
88 TPEVPERSIST VALUE 1.
05 TPEV-TRAN-FLAG PIC S9(9) COMP-5.
88 TPEVNOTRAN VALUE 0.
88 TPEVTRAN VALUE 1.
*
05 EVENT-COUNT PIC S9(9) COMP-5.
05 SUBSCRIPTION-HANDLE PIC S9(9) COMP-5.
05 NAME-1 PIC X(31).
05 NAME-2 PIC X(31).
05 EVENT-NAME PIC X(31).
05 EVENT-EXPR PIC X(255).
05 EVENT-FILTER PIC X(255).

次の表は、TPEVTDEF-REC データ構造体のメンバを示しています。

メンバ	説明
EVENT-COUNT	イベント・カウント。
SUBSCRIPTION-HANDLE	サブスクリプション・ハンドル。
NAME-1、NAME-2	キューに登録された空間の名前。サブスクライバが TPEVQUEUE を設定した場合、イベント通知は NAME-1 で指定されるキュー・スペースと、NAME-2 で指定されるキューに登録されます。
EVENT-NAME	イベント名。
EVENT-EXPR	サブスクライブするイベント。正規表現を含み、NULL 文字で終了する最大 255 文字の文字列を指定します。正規表現は、tpsubscribe(3c) で指定された形式です (『C 言語を使用した BEA Tuxedo アプリケーションのプログラミング』を参照)。たとえば、次のように eventexpr を設定します。 "¥¥.."－呼び出し元は、すべてのシステム定義のイベントをサブスクライブします。 "¥¥.SysServer."－呼び出し元は、サーバに関連するすべてのシステム定義のイベントをサブスクライブします。 "[A-Z]."－呼び出し元は、A ～ Z の大文字で始まるすべてのユーザ定義のイベントをサブスクライブします。 ".(ERR\|err).*"－呼び出し元は、account_error または ERROR_STATE など、イベント名に ERR または err を含むすべてのユーザ定義のイベントをサブスクライブします。
EVENT-FILTER	ブール型のフィルタ規則を含む文字列。イベント・ブローカがイベントをポストする前に、この規則を評価する必要があります。ポストするイベントを受け取ると、イベント・ブローカはそのイベントのデータにフィルタ規則 (定義されている場合) を適用します。データが正しく評価された場合、イベント・ブローカは指定された通知方法を呼び出します。正しく評価されなかった場合、イベント・ブローカは指定された通知方法を無視します。呼び出し元は、異なるフィルタ・ルールを利用して同じイベントを何度でもサブスクライブすることができます。イベント・フィルタ機能を使用すると、サブスクライバは通知されるイベントを限定できます。たとえば、100 万円を超える額の引き出しがあった場合に、イベントがポストされるとします。その場合、サブスクライバが 100 万円より高い額 (たとえば 500 万円) の通知だけを必要とすることがあります。または、特定の顧客による高額の引き出しの通知だけを必要とする場合があります。フィルタ・ルールは、フィルタ・ルールの適用対象となる型付きレコードによって異なります。フィルタ規則の詳細については、『BEA Tuxedo COBOL リファレンス』の TPSUBSCRIBE(3cbl) リファレンス・ページを参照してください。
SETTINGS (TPBLOCK-FLAG、 TPTRAN-FLAG、など)	サーバの特性を制御するその他の設定。設定値の詳細については、『BEA Tuxedo COBOL リファレンス』を参照してください。