任意通知型メッセージの送信

BEA Tuxedo システムでは、要求/応答型呼び出しまたは会話型通信の処理を妨げずに、クライアント・プロセスに任意通知型メッセージを送信できます。

TPBROADCAST ルーチンの呼び出しには、次の文法を使用します。

01 TPBCTDEF-REC.
   COPY TPBCTDEF.
01 TPTYPE-REC.
   COPY TPTYPE.
01 DATA-REC.
   COPY User Data.
01 TPSTATUS-REC.
   COPY TPSTATUS.
CALL "TPBROADCAST" USING TPBCTDEF-REC TPTYPE-REC DATA-REC TPSTATUS-REC.

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

TPBCTDEF-REC データ構造体のメンバ

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

次のコード例は、すべてのクライアントを送信先として TPBROADCAST を呼び出す方法を示しています。送信メッセージは、STRING 型レコード内にあります。

TPBROADCAST の使用

    . . .
**************************************************
* ブロードキャストにレコードを用意します。
**************************************************
    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

識別子によるメッセージのブロードキャスト

TPNOTIFY ルーチンの呼び出しには、次の文法を使用します。

01 TPSVCDEF-REC.
   COPY TPSVCDEF.
01 TPTYPE-REC.
   COPY TPTYPE.
01 DATA-REC.
   COPY User Data.
01 TPSTATUS-REC.
   COPY TPSTATUS.
CALL "TPNOTIFY" USING TPSVCDEF-REC TPTYPE-REC DATA-REC TPSTATUS-REC.