メッセージの優先順位の設定および取得


	BEA ホーム \| イベント \| ソリューション \| パートナ \| 製品 \| サービス \| ダウンロード \| ディベロッパ・センタ \| WebSUPPORT
	e-docs \| サイトマップ \| 検索 \| PDF版 \| お問い合わせ \| 用語集

Tuxedo ホーム \| COBOL を使用した BEA Tuxedo アプリケーションのプログラミング \| 先頭へ \| 前へ \| 次へ \| 目次

メッセージの優先順位の設定および取得

2 つの ATMI 呼び出し、TPSPRIO(3cbl) および TPGPRIO(3cbl) を使用して、メッセージ要求の優先順位を決定したり設定できます。この優先順位に従って、サーバがキューから要求を取り出します。つまり、最も優先順位の高い要求が最初に取り出されます。

この節では、次の内容について説明します。

メッセージの優先順位の設定

TPSPRIO(3cbl) ルーチンを使用すると、メッセージ要求の優先順位を設定できます。

TPSPRIO ルーチンで優先順位を設定できるのは、1 つの要求だけです。つまり、TPCALL または TPACALL によって次に送信される要求、またはサービス・サブルーチンによって次に転送される要求だけです。

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

01 TPPRIDEF-REC.
    COPY TPPRIDEF.
01 TPSTATUS-REC.
    COPY TPSTATUS.
CALL "TPSPRIO" USING TPPRIDEF-REC TPSTATUS-REC.

TPPRIDEF-REC データ構造体の呼び出しには、次の文法を使用します。

05 PRIORITY     PIC S9(9) COMP-5.
05 PRIO-FLAG    PIC S9(9) COMP-5.
  88 TPABSOLUTE     VALUE 0.
  88 TPRELATIVE     VALUE 1.

次の表は、TPSPRIO ルーチンのフィールドを示しています。

TPSPRIO ルーチンのフィールド

フィールド

説明

PRIORITY

新しい優先順位を示す整数値。この引数の持つ意味は、PRIO-FLAG によって異なります。PRIO-FLAG にゼロが設定されている場合、PRIORITY は相対値を示し、値の符号は現在の優先順位を上げることまたは下げることを示します。ほかの値が設定されている場合、指定された値は絶対値を示し、PRIORITY には 0 ～ 100 の範囲の値を設定する必要があります。この範囲外の値を設定すると、50 に設定されます。

PRIO-FLAG

PRIORITY の値を相対値 (0) または絶対値 (TPABSOLUTE) のどちらの値として処理するのかを示す値。デフォルトは相対値です。

フィールド	説明
PRIORITY	新しい優先順位を示す整数値。この引数の持つ意味は、PRIO-FLAG によって異なります。PRIO-FLAG にゼロが設定されている場合、PRIORITY は相対値を示し、値の符号は現在の優先順位を上げることまたは下げることを示します。ほかの値が設定されている場合、指定された値は絶対値を示し、PRIORITY には 0 ～ 100 の範囲の値を設定する必要があります。この範囲外の値を設定すると、50 に設定されます。
PRIO-FLAG	PRIORITY の値を相対値 (0) または絶対値 (TPABSOLUTE) のどちらの値として処理するのかを示す値。デフォルトは相対値です。

以下のコード例は、TRANSFER サービスから引用したものです。このコードでは、TRANSFER サービスはクライアントとして動作し、TPCALL を使用して WITHDRAWAL サービスに同期要求を送信しています。TRANSFER は TPSPRIO を呼び出して WITHDRAWAL に対する要求メッセージの優先順位を上げます。また、TRANSFER のキューを待機した後で、WITHDRAWAL サービス (その後 DEPOSIT サービス) に対する要求がキューに格納されないようにします。

要求メッセージの優先順位の設定

    WORKING-STORAGE SECTION.
*****************************************************
* Tuxedo の定義
*****************************************************
  01 TPTYPE-REC.
     COPY TPTYPE.
*
  01 TPSTATUS-REC.
     COPY TPSTATUS.
*
  01 TPSVCDEF-REC.
     COPY TPSVCDEF.
*
  01 TPPRIDEF-REC.
     COPY TPPRIDEF.
*****************************************************
    01 DATA-REC               PIC X(100) VALUE SPACES.
******************************************************
    PROCEDURE DIVISION.
START-FIG.
    . . .
      join application
    . . .
    MOVE 30 TO PRIORITY.
    SET TPRELATIVE TO TRUE.
    CALL "TPSPRIO" USING TPPRIDEF-REC TPSTATUS-REC
    IF NOT TPOK
       error processing
    MOVE "CARRAY" TO REC-TYPE.
    MOVE 100 TO LEN.
    MOVE "WITHDRAWAL" TO SERVICE-NAME.
    SET TPTRAN TO TRUE.
    SET TPBLOCK TO TRUE.
    SET TPNOTIME TO TRUE.
    SET TPSIGRSTRT TO TRUE.
    SET TPREPLY TO TRUE.
CALL "TPACALL" USING TPSVCDEF-REC
               TPTYPE-REC
               DATA-REC
               TPSTATUS-REC.
    IF NOT TPOK
       error processing
    . . .
    leave application

メッセージの優先順位の取得

TPGPRIO(3cbl) ルーチンを使用すると、メッセージ要求の優先順位を取得できます。

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

01 TPPRIDEF-REC.
   COPY TPPRIDEF.
01 TPSTATUS-REC.
   COPY TPSTATUS.
CALL "TPGPRIO" USING TPPRIDEF-REC TPSTATUS-REC.

要求元は、TPCALL または TPACALL ルーチンを呼び出した後に TPGPRIOルーチンを呼び出して、要求メッセージの優先順位を取得できます。要求元が関数を呼び出したが要求が送信されていない場合、ルーチンは失敗し、TP-STATUS に TPENOENT が設定されます。TPGPRIO の処理が成功すると、TP-STATUS に TPOK が設定され、1 ～ 100 の範囲内の整数値が返されます。100 が最も高い優先順位です。

TPSPRIO ルーチンを使用して優先順位が明示的に設定されていない場合、要求を処理するサービス・ルーチンの優先順位がメッセージの優先順位として設定されます。アプリケーション内では、要求を処理するサービスの優先順位にデフォルト値の 50 が設定されます。ただし、システム管理者が別の値を指定している場合は除きます。

次のコード例は、非同期呼び出しによって送信されたメッセージの優先順位を確認する方法を示しています。

送信後の要求の優先順位の確認

   WORKING-STORAGE SECTION.
*****************************************************
* Tuxedo の定義
*****************************************************
   01 TPTYPE-REC-1.
   COPY TPTYPE.
   01 TPTYPE-REC-2.
   COPY TPTYPE.
*
   01 TPSTATUS-REC.
   COPY TPSTATUS.
*
   01 TPSVCDEF-REC-1.
   COPY TPSVCDEF.
   01 TPSVCDEF-REC-2.
   COPY TPSVCDEF.
*
   01 TPPRIDEF-REC-1.
   COPY TPPRIDEF.
   01 TPPRIDEF-REC-2.
    COPY TPPRIDEF.
*****************************************************
   01 DATA-REC-1     PIC X(100) VALUE SPACES.
   01 DATA-REC-2     PIC X(100) VALUE SPACES.
******************************************************
    PROCEDURE DIVISION.
START-FIG.
   . . .
   join application
   populate DATA-REC1 and DATA-REC2 with send request
   . . .
   MOVE "CARRAY" TO REC-TYPE IN TYPE-REC-1.
   MOVE 100 TO LEN IN TYPE-REC-1.
   MOVE "SERVICE1" TO SERVICE-NAME IN TPSVCDEV-REC-1.
   SET TPTRAN TO TRUE IN TPSVCDEV-REC-1.
   SET TPBLOCK TO TRUE IN TPSVCDEV-REC-1.
   SET TPNOTIME TO TRUE IN TPSVCDEV-REC-1.
   SET TPSIGRSTRT TO TRUE IN TPSVCDEV-REC-1.
   SET TPREPLY TO TRUE IN TPSVCDEV-REC-1.
   CALL "TPACALL" USING TPSVCDEF-REC-1
                  TPTYPE-REC-1
                  DATA-REC-1
                  TPSTATUS-REC.
   IF NOT TPOK
       error processing
   CALL "TPGPRIO" USING TPPRIDEF-REC-1 TPSTATUS-REC
   IF NOT TPOK
      error processing
   MOVE "CARRAY" TO REC-TYPE IN TYPE-REC-2.
   MOVE 100 TO LEN IN TYPE-REC-2.
   MOVE "SERVICE2" TO SERVICE-NAME IN TPSVCDEV-REC-2.
   SET TPTRAN TO TRUE IN TPSVCDEV-REC-2.
   SET TPBLOCK TO TRUE IN TPSVCDEV-REC-2.
   SET TPNOTIME TO TRUE IN TPSVCDEV-REC-2.
   SET TPSIGRSTRT TO TRUE IN TPSVCDEV-REC-2.
   SET TPREPLY TO TRUE IN TPSVCDEV-REC-2.
   CALL "TPACALL" USING TPSVCDEF-REC-2
                    TPTYPE-REC-2
                    DATA-REC-2
                    TPSTATUS-REC.
    IF NOT TPOK
      error processing
   CALL "TPGPRIO" USING TPPRIDEF-REC-2 TPSTATUS-REC
    IF NOT TPOK
      error processing
   IF PRIORITY IN TPSVCDEF-REC-1 >= PRIORITY IN TPSVCDEF-REC-2
                PERFORM DO-GETREPLY1
                PERFORM DO-GETREPLY2
    ELSE
                    PERFORM DO-GETREPLY2
                    PERFORM DO-GETREPLY1
   END-IF.
   . . .
   leave application
DO-GETRPLY1.
   SET TPGETHANDLE TO TRUE IN TPSVCDEV-REC-1.
   SET TPCHANGE TO TRUE IN TPSVCDEV-REC-1.
   SET TPBLOCK TO TRUE IN TPSVCDEV-REC-1.
   SET TPNOTIME TO TRUE IN TPSVCDEV-REC-1.
   SET TPSIGRSTRT TO TRUE IN TPSVCDEV-REC-1.
   CALL "TPGETRPLY" USING TPSVCDEF-REC-1
                    TPTYPE-REC-1
                    DATA-REC-1
                    TPSTATUS-REC.
   IF NOT TPOK

            error processing
 DO-GETRPLY2
   SET TPGETHANDLE TO TRUE IN TPSVCDEV-REC-2.
   SET TPCHANGE TO TRUE IN TPSVCDEV-REC-2.
   SET TPBLOCK TO TRUE IN TPSVCDEV-REC-2.
   SET TPNOTIME TO TRUE IN TPSVCDEV-REC-2.
   SET TPSIGRSTRT TO TRUE IN TPSVCDEV-REC-2.
   CALL "TPGETRPLY" USING TPSVCDEF-REC-2
                    TPTYPE-REC-2
                    DATA-REC-2
                    TPSTATUS-REC.
    IF NOT TPOK
              error processing