トランザクションの開始


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

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

トランザクションの開始

グローバル・トランザクションを開始するには、次の文法を使用して TPBEGIN(3cbl) ルーチンを呼び出します。

*
  01 TPTRXDEF-REC.
     COPY TPTRXDEF.
*
  01 TPSTATUS-REC.
     COPY TPSTATUS.
*
   CALL "TPBEGIN" USING TPTRXDEF-REC TPSTATUS-REC.

次の表は、TPTRXDEF-REC 構造体のフィールドを示しています。

TPTRXDEF 構造体のフィールド

フィールド

説明

T-OUT

トランザクションがタイムアウトになるまでの時間 (秒単位)。この引数に 0 を指定すると、システムで可能な最長時間 (秒単位) に設定されます。つまり、timeout には、システムで定義された符号なし long 型の最大値が設定されます。

T-OUT パラメータに 0 または非現実的な大きな値を指定すると、システムによるエラー検出と報告が遅れる原因となります。T-OUT パラメータを使用すると、サービス要求に対する応答が妥当な時間内に確実に返されるようになります。また、ネットワーク障害などの問題が発生した場合に、コミットされる前にトランザクションを終了できます。

生産システムの場合、T-OUT に大きな値を設定して、システムの負荷やデータベースの競合に起因する遅延に対応できるようにします。予測される平均応答時間を 2、3 倍した時間が最適です。

注記 T-OUT パラメータに設定する値は、BEA Tuxedo のアプリケーション管理者がコンフィギュレーション・ファイルに設定した SCANUNIT パラメータの値と一致していなければなりません。SCANUNIT パラメータには、タイムアウトになったトランザクションとサービス要求でブロックされた呼び出しがないかどうかを確認、つまりスキャンする頻度を指定します。このパラメータの値は、定期的なスキャンの間隔 (走査を行う間隔) を表します。

T-OUT パラメータには、走査を行う間隔より大きな値を設定します。T-OUT パラメータに設定された値が走査を行う間隔より小さいと、トランザクションがタイムアウトになる時間と、そのタイムアウトが検出される時間にずれが生じます。SCANUNIT のデフォルト値は 10 秒です。T-OUT パラメータの設定値についてはアプリケーション管理者と検討し、T-OUT パラメータに設定した値がシステム・パラメータの値と矛盾しないようにします。

TRANID

トランザクション識別子。

フィールド	説明
T-OUT	トランザクションがタイムアウトになるまでの時間 (秒単位)。この引数に 0 を指定すると、システムで可能な最長時間 (秒単位) に設定されます。つまり、timeout には、システムで定義された符号なし long 型の最大値が設定されます。 T-OUT パラメータに 0 または非現実的な大きな値を指定すると、システムによるエラー検出と報告が遅れる原因となります。T-OUT パラメータを使用すると、サービス要求に対する応答が妥当な時間内に確実に返されるようになります。また、ネットワーク障害などの問題が発生した場合に、コミットされる前にトランザクションを終了できます。生産システムの場合、T-OUT に大きな値を設定して、システムの負荷やデータベースの競合に起因する遅延に対応できるようにします。予測される平均応答時間を 2、3 倍した時間が最適です。注記 T-OUT パラメータに設定する値は、BEA Tuxedo のアプリケーション管理者がコンフィギュレーション・ファイルに設定した SCANUNIT パラメータの値と一致していなければなりません。SCANUNIT パラメータには、タイムアウトになったトランザクションとサービス要求でブロックされた呼び出しがないかどうかを確認、つまりスキャンする頻度を指定します。このパラメータの値は、定期的なスキャンの間隔 (走査を行う間隔) を表します。 T-OUT パラメータには、走査を行う間隔より大きな値を設定します。T-OUT パラメータに設定された値が走査を行う間隔より小さいと、トランザクションがタイムアウトになる時間と、そのタイムアウトが検出される時間にずれが生じます。SCANUNIT のデフォルト値は 10 秒です。T-OUT パラメータの設定値についてはアプリケーション管理者と検討し、T-OUT パラメータに設定した値がシステム・パラメータの値と矛盾しないようにします。
TRANID	トランザクション識別子。

TPBEGIN は、どのプロセスからも呼び出すことができます。ただし、既にトランザクション・モードになっているプロセスからは呼び出すことはできません。トランザクション・モードで TPBEGIN が呼び出されると、プロトコル・エラーになって呼び出しが失敗し、TP-STATUS に TPEPROTO が設定されます。プロセスがトランザクション・モードの場合でも、この失敗はトランザクションには影響しません。

次のコード例は、グローバル・トランザクションの定義方法を簡単に示しています。

トランザクションの定義

. . .
   MOVE 0 TO T-OUT.
   CALL "TPBEGIN" USING
   TPTRXDEF-REC
   TPSTATUS-REC.
   IF NOT TPOK
      error processing
. . .
      program statements
. . .
CALL "TPCOMMIT" USING
                TPTRXDEF-REC
                TPSTATUS-REC.
IF NOT TPOK
   error processing

次のコード例は、未処理の応答に起因するエラーの発生を示しています。

エラー - 未処理の応答があるトランザクションの開始

  . . .
  MOVE "BUY" TO SERVICE-NAME.
  SET TPBLOCK TO TRUE.
  SET TPNOTRAN TO TRUE.
  SET TPREPLY TO TRUE.
  SET TPNOTIME TO TRUE.
  SET TPSIGRSTRT TO TRUE .
  CALL "TPACALL" USING
                 TPSVCDEF-REC
                 TPTYPE-REC
                 BUY-REC
                 TPSTATUS-REC.
  IF NOT TPOK
     error processing
  . . .
  MOVE 0 TO T-OUT.
  CALL "TPBEGIN" USING
                 TPTRXDEF-REC
                 TPSTATUS-REC.
  IF NOT TPOK
     error processing
* ERROR TP-STATUS に TPEPROTO が設定されます。
  . . .
      program statements
  . . .
  SET TPBLOCK TO TRUE.
  SET TPNOTRAN TO TRUE.
  SET TPCHANGE TO TRUE.
  SET TPNOTIME TO TRUE.
  SET TPSIGRSTRT TO TRUE.
  SET TPGETANY TO TRUE.
  CALL "TPGETRPLY" USING
                   TPSVCDEF-REC
                   TPTYPE-REC
                   WK-AREA
                   TPSTATUS-REC.
  IF NOT TPOK
     error processing

トランザクションがタイムアウトになった場合、TPCOMMIT を呼び出すとトランザクションがアボートします。その結果、TPCOMMIT が失敗し、TP-STATUS に TPEABORT が設定されます。

次のコード例は、トランザクションのタイムアウトを確認する方法を示しています。T-OUT の値が 30 秒に設定されていることに注目してください。

トランザクションのタイムアウトの確認

. . .
MOVE 30 TO T-OUT.
CALL "TPBEGIN" USING TPTRXDEF-REC TPSTATUS-REC.
IF NOT TPOK
    MOVE "Failed to BEGIN a transaction" TO LOG-REC-TEXT.
   MOVE 29 to LOG-REC-LEN
   CALL "USERLOG" USING
                  LOG-REC-TEXT
                  LOG-REC-LEN
                  TPSTATUS-REC
   CALL "TPTERM" USING
                 TPSTATUS-REC
   PERFORM A-999-EXIT.
. . .
       communication CALL statements
. . .
IF TPETIME
   CALL "TPABORT" USING
                  TPTRXDEF-REC
                  TPSTATUS-REC
   IF NOT TPOK
         error processing
   ELSE
      CALL "TPCOMMIT" USING
                      TPTRXDEF-REC
                      TPSTATUS-REC
    IF NOT TPOK
        error processing

注記トランザクション・モードのプロセスで、TPNOTRAN を設定して通信呼び出しを行うと、呼び出されたサービスは現在のトランザクションに参加できません。サービス要求の成功や失敗は、トランザクションの結果に影響しません。トランザクションは、サービスから応答が返されるのを待つ間にタイムアウトになる場合もあります。これは、そのサービスがトランザションに参加しているかどうかには関係ありません。TPNOTRAN フラグの影響については、「エラーの管理」を参照してください。

次のコード例は、トランザクションの定義方法を示しています。

トランザクションの定義

 DATA DIVISION.
 WORKING-STORAGE SECTION.
*
 01 TPTYPE-REC.
 COPY TPTYPE.
*
 01 TPSTATUS-REC.
 COPY TPSTATUS.
*
 01 TPINFDEF-REC.
 COPY TPINFDEF.
*
 01  TPSVCDEF-REC.
 COPY TPSVCDEF.
*
 01  TPTRXDEF-REC.
 COPY TPTRXDEF.
*
 01 LOG-REC              PIC X(30) VALUE " ".
 01 LOG-REC-LEN          PIC S9(9)  COMP-5.
*
 01 USR-DATA-REC         PIC X(16).
*
 01 AUDV-REC.
     05  AUDV-BRANCH-ID      PIC S9(9) COMP-5.
     05  AUDV-BALANCE        PIC S9(9) COMP-5.
     05  AUDV-ERRMSG         PIC X(60).
*
 PROCEDURE DIVISION.
*
 A-000.
  . . .
* コマンド行オプションを取得します。変数 (Q-BRANCH) を設定します。
  MOVE SPACES TO USRNAME.
  MOVE SPACES TO CLTNAME.
  MOVE SPACES TO PASSWD.
  MOVE SPACES TO GRPNAME.
  CALL "TPINITIALIZE" USING TPINFDEF-REC
                      USR-DATA-REC
                      TPSTATUS-REC.
    IF NOT TPOK
       MOVE "Failed to join application" TO LOG-REC
       MOVE 26 TO LOG-REC-LEN
        CALL "USERLOG" USING LOG-REC
                      LOG-REC-LEN
                      TPSTATUS-REC
        PERFORM A-999-EXIT.
* グローバル・トランザクションを開始します。
  MOVE 30 TO T-OUT.
  CALL "TPBEGIN" USING TPTRXDEF-REC TPSTATUS-REC.
  IF NOT TPOK
     MOVE 29 to LOG-REC-LEN
     MOVE "Failed to begin a transaction" TO LOG-REC
     CALL "USERLOG" USING LOG-REC
                    LOG-REC-LEN
                    TPSTATUS-REC
     PERFORM DO-TPTERM.
* レコードを設定します。
  MOVE Q-BRANCH TO AUDV-BRANCH-ID.

  MOVE ZEROS TO AUDV-BALANCE.
  MOVE SPACES TO AUDV-ERRMSG.
* TPCALL レコードを設定します。
  MOVE "GETBALANCE" TO SERVICE-NAME.
  MOVE "VIEW" TO REC-TYPE.
  MOVE LENGTH OF AUDV-REC TO LEN.
  SET TPBLOCK TO TRUE.
  SET TPTRAN IN TPSVCDEF-REC TO TRUE.
  SET TPNOTIME TO TRUE.
  SET TPSIGRSTRT TO TRUE.
  SET TPCHANGE TO TRUE.
*
  CALL "TPCALL" USING TPSVCDEF-REC
                TPTYPE-REC.
                AUDV-REC
                TPTYPE-REC.
                AUDV-REC
                TPSTATUS-REC.
  IF NOT TPOK
     MOVE 19 to LOG-REC-LEN
     MOVE "Service call failed" TO LOG-REC
     CALL "USERLOG" USING LOG-REC
                    LOG-REC-LEN
                    TPSTATUS-REC
     PERFORM DO-TPABORT
     PERFORM DO-TPTERM.
* グローバル・トランザクションをコミットします。
  CALL "TPCOMMIT" USING TPTRXDEF-REC
                  TPSTATUS-REC
  IF NOT TPOK
     MOVE 16 to LOG-REC-LEN
     MOVE "Failed to commit" TO LOG-REC
     CALL "USERLOG" USING LOG-REC
                    LOG-REC-LEN
                    TPSTATUS-REC
     PERFORM DO-TPTERM.
* トランザクションが成功した場合のみ、結果を表示します。
  DISPLAY "BRANCH=" Q-BRANCH.
  DISPLAY "BALANCE=" AUDV-BALANCE.
  PERFORM DO-TPTERM.
* トランザクションをアボートします。
 DO-TPABORT.
  CALL "TPABORT" USING TPTRXDEF-REC
                 TPSTATUS-REC
  IF NOT TPOK
     MOVE 26 to LOG-REC-LEN
     MOVE "Failed to abort transaction" TO LOG-REC
     CALL "USERLOG" USING LOG-REC
                    LOG-REC-LEN

                     TPSTATUS-REC.
* アプリケーションを分離します。
 DO-TPTERM.
  CALL "TPTERM" USING TPSTATUS-REC.
  IF NOT TPOK
     MOVE 27 to LOG-REC-LEN
     MOVE "Failed to leave application" TO LOG-REC
     CALL "USERLOG" USING LOG-REC
                    LOG-REC-LEN
                    TPSTATUS-REC.
                    EXIT PROGRAM.
*
 A-999-EXIT.
*
 EXIT PROGRAM.