会話型クライアントおよびサーバのコーディング

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

• 会話型通信の概要

• アプリケーションへの参加

• 接続の確立

• メッセージの送受信

• 会話の終了

• 会話型のクライアントおよびサーバのビルド

• 会話型通信イベント

 

---

会話型通信の概要

会話型通信は BEA Tuxedo システムのメッセージ交換のパラダイムで、人の会話に似た通信がクライアントとサーバ間でインプリメントされています。この通信方法では、クライアント (イニシエータ) とサーバ (下位サーバ) 間で仮想接続が行われて、双方で会話の状態に関する情報が保持されます。この接続は、接続を終了するイベントが発生するまで継続します。

会話型通信では、クライアントとサーバ間に半二重接続が確立されます。半二重接続では、メッセージが 1 方向だけに送信されます。接続に関する制御は、イニシエータから下位サーバへ、またはその逆に移ります。制御を持つプロセスがメッセージを送信でき、持たないプロセスは受信しかできません。

以下に銀行業務のオンライン・アプリケーションを例に、BEA Tuxedo アプリケーションで行われる会話型通信について説明します。この例では、銀行の顧客が過去 2 か月間の当座預金の明細書を要求しています。

図 7-1 銀行業務オンライン・アプリケーションでの会話型通信

 

1. 顧客が過去 2 か月間の当座預金口座の明細書を要求します。

2. 口座レコード管理システムは、この要求に対する応答として、当座預金口座の最初の月の明細書を送信します。次に、次の月の明細書を送信するかどうかを More プロンプトで確認します。

3. 顧客は More プロンプトを選択して、次の月の明細書を要求します。

注記 口座レコード管理システムでは、状態情報を保持して、顧客が More プロンプトを選択した場合にどの明細書を送るのか認識できるようにする必要があります。

4. 口座レコード管理システムは、次の月の明細書を送信します。

要求/応答型通信の場合と同じように、BEA Tuxedo システムでは型付きレコードを使用してデータが渡されます。アプリケーションがレコード・タイプを認識できることが必要です。レコード・タイプの詳細については、型付きレコードの概要を参照してください。

会話型のクライアントおよびサーバには、次の特徴があります。

• 会話型のクライアントとサーバ間の論理接続は、接続が終了するまで継続します。

• 会話型のクライアントとサーバ間の接続で転送できるメッセージの数には制限はありません。

• クライアントとサーバとの会話では、データの送受信に TPSEND および TPRECV ルーチンが使用されます。

会話型通信は、次の点で要求/応答型通信と異なります。

• 会話型クライアントは、サービスを要求するときに TPCALL または TPACALL ではなく、TPCONNECT を使用します。

• 会話型クライアントは、会話型サーバにサービス要求を送信します。

• 会話型サービスを定義するために、コンフィギュレーション・ファイルに会話型サーバの一部が予約されています。

• 会話型サーバは、TPFORWAR を使用して呼び出しを行うことはできません。

 

---

アプリケーションへの参加

会話型クライアントは、サービスへの接続を確立する前に、TPINITIALIZE を呼び出してアプリケーションに参加する必要があります。詳細については、4-1 ページの「クライアントのコーディング」を参照してください。

 

---

接続の確立

TPCONNECT(3cbl) ルーチンは、会話を行うための接続を確立します。

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

01 TPSVCDEF-REC.
     COPY TPSVCDEF.

01 TPTYPE-REC.
     COPY TPTYPE.

01 DATA-REC.
     COPY User Data.

01 TPSTATUS-REC.
     COPY TPSTATUS.

CALL "TPCONNECT" USING TPSVCDEF-REC TPTYPE-REC DATA-REC TPSTATUS-REC.

TPSVCDEF-REC レコードの詳細については、5-12 ページの「サービスの定義」を参照してください。TPTYPE-REC レコードの詳細については、型付きレコードの定義を参照してください。

接続が確立されると同時に、DATA-REC を使用して、LEN IN TPTYPE-REC に指定されたデータ長でデータを送信できます。DATA-REC のデータの REC-TYPE と SUB-TYPE は、呼び出されたサービスで認識できるタイプであることが必要です。データが送信されていない場合は、REC-TYPE の値は SPACES であり、DATA-REC と LEN は無視されます。

TPCONNECT または TPSVCSTART によって接続が確立されると、BEA Tuxedo システムから通信ハンドル (COMM-HANDLE IN TPSVCDEF-REC) が返されます。この COMM-HANDLE は、特定の会話で以降に送られるメッセージを識別するために使用されます。クライアントまたは会話型サービスは、複数の会話に同時に参加できます。最大 64 個の会話を同時に行うことができます。

TPCONNECT の呼び出しが失敗すると、対応するエラー・コードが TP-STATUS に設定されます。エラー・コードについては、『BEA Tuxedo COBOL リファレンス』の TPCONNECT(3cbl) を参照してください。

次のコード例は、TPCONNECT ルーチンの使用方法を示しています。

コード リスト 7-1 会話型接続の確立

    . . .
* 送信するレコードを準備
  MOVE "HELLO" TO DATA-REC.
  MOVE 5 TO LEN.
  MOVE "STRING" TO REC-TYPE.
*
  SET TPBLOCK TO TRUE.
  SET TPNOTRAN TO TRUE.
  SET TPNOTIME TO TRUE.
  SET TPSIGRSTRT TO TRUE.
  SET TPSENDONLY TO TRUE.
*
  CALL "TPCONNECT" USING TPSVCDEF-REC
                   TPTYPE-REC
                   DATA-REC
                   TPSTATUS-REC.
  IF NOT TPOK
           error processing ...
  ELSE
      COMM-HANDLE is valid.

 

---

メッセージの送受信

BEA Tuxedo システムで会話型接続が確立されると、イニシエータと下位サーバ間の通信は送信呼び出しと受信呼び出しによって行われます。接続の制御を持つプロセスは、TPSEND(3cbl) ルーチンを使用してメッセージを送信できます。制御がないプロセスは、TPRECV(3cbl) ルーチンを使用してメッセージを受信できます。

注記 発信元 (クライアント) は、最初に TPCONNECT 呼び出しの TPSENDONLY または TPRECVONLY フラグを使用して、どのプロセスが制御を持っているのかを判別します。TPSENDONLY は、発信元が制御を持つことを示します。TPRECVONLY は、呼び出されたサービスに制御が渡されたことを示します。

メッセージの送信

メッセージを送信するには TPSEND(3cbl) ルーチンを使用します。このルーチンには、次の文法を使用します。

01 TPSVCDEF-REC.
     COPY TPSVCDEF.

01 TPTYPE-REC.
     COPY TPTYPE.

01 DATA-REC.
     COPY User Data.

01 TPSTATUS-REC.
     COPY TPSTATUS.

CALL "TPSEND" USING TPSVCDEF-REC TPTYPE-REC USER-DATA-REC TPSTATUS-REC.

TPSVCDEF-REC レコードの詳細については、5-12 ページの「サービスの定義」を参照してください。TPTYPE-REC レコードの詳細については、型付きレコードの定義を参照してください。

TPSEND ルーチンが失敗すると、対応するエラー・コードが TP-STATUS に設定されます。エラー・コードについては、『BEA Tuxedo COBOL リファレンス』の TPSEND(3cbl) を参照してください。

TPSEND ルーチンを呼び出すたびに、制御を渡す必要はありません。一部のアプリケーションでは、TPSEND の呼び出しを認められているプロセスが、制御をほかのプロセスに渡すまで、現在のタスクで必要な回数だけ呼び出しを実行できます。ただし、プログラムのロジックによっては、会話が継続する間は常に 1 つのプロセスが接続の制御を持たなければならないアプリケーションもあります。

次のコード例は、TPSEND ルーチンの呼び出し方法を示しています。

コード リスト 7-2 会話モードでのデータ送信

   . . .
   SET TPNOBLOCK TO TRUE.
   SET TPNOTIME TO TRUE.
   SET TPSIGRSTRT TO TRUE.
   SET TPRECVONLY TO TRUE.
*
   CALL "TPSEND" USING TPSVCDEF-REC
                    TPTYPE-REC
                    DATA-REC
                    TPSTATUS-REC.
   IF NOT TPOK
       error processing . . .

メッセージの受信

オープン接続を介してデータを受信するには、TPRECV(3cbl) ルーチンを使用します。この関数には、次の文法を使用します。

01 TPSVCDEF-REC.
     COPY TPSVCDEF.

01 TPTYPE-REC.
     COPY TPTYPE.

01 DATA-REC.
     COPY User Data.

01 TPSTATUS-REC.
     COPY TPSTATUS.

CALL "TPRECV" USING TPSVCDEF-REC TPTYPE-REC DATA-REC TPSTATUS-REC.

TPSVCDEF-REC レコードの詳細については、5-12 ページの「サービスの定義」を参照してください。TPTYPE-REC レコードの詳細については、型付きレコードの定義を参照してください。

次のコード例は、TPRECV ルーチンの使用方法を示しています。

コード リスト 7-3 会話型でのデータ受信

  . . .
  SET TPNOCHANGE TO TRUE.
  SET TPBLOCK TO TRUE.
  SET TPNOTIME TO TRUE.
  SET TPSIGRSTRT TO TRUE.
*
  MOVE LENGTH OF DATA-REC TO LEN.
*
  CALL "TPRECV" USING TPSVCDEF-REC
                   TPTYPE-REC
                   DATA-REC
                   TPSTATUS-REC.
  IF NOT TPOK
      error processing . . .

 

---

会話の終了

次の場合、接続が切断されて会話が正常に終了します。

• 単純な会話で、TPRETURN の呼び出しが成功した場合

• 接続が階層構造になった複雑な会話で、一連の TPRETURN の呼び出しが成功した場合

• グローバル・トランザクションの場合 (9-1 ページの「グローバル・トランザクションのコーディング」を参照)

注記 TPRETURN ルーチンについては、6-1 ページの「クライアントおよびサーバへの要求/応答のコーディング」を参照してください。

以下の節では、会話を正常に終了する方法について、2 つの例を挙げて説明します。これらの会話には、TPRETURN 関数を使用するグローバル・トランザクションは含まれていません。

最初の例では、2 つのコンポーネント間の単純な会話を終了する方法を示します。2 番目の例では、会話が階層構造になっている複雑な会話を終了する方法を示します。

接続がオープンになっているときに会話を終了すると、エラーが返されます。その場合、TPCOMMIT または TPRETURN は失敗します。

例: 単純な会話の終了

次の図は、正常に終了する A と B 間の単純な会話を示しています。

図 7-2 正常に終了する単純な会話

 

次の順序で処理が行われます。

1. A は、TPSENDONLY フラグで TPCONNECT を呼び出して接続を設定します。このフラグは、B が会話の受信側であることを示します。

2. A は TPRECVONLY フラグで TPSEND を呼び出して、接続の制御を B に移します。その結果、TPEV_SENDONLY イベントが生成されます。

3. B が次に TPRECV を呼び出すと TP-STATUS に TPEEVENT が設定されます。TPEVENT に TPEV_SENDONLY が返されて、制御が B に移ったことが示されます。

4. B は、TPRETURN-VAL IN TPSVCRET に TPSUCCESS を設定して TPRETURN を呼び出します。この呼び出しにより、A に対して TPEV_SVCSUCC イベントが生成され、接続が正常に切断されます。

5. A は、TPRECV を呼び出して、イベントが発生したことと会話が終了したことを認識します。イベント TPEV_SVCFAIL が発生した場合でも、この TPRECV への呼び出しでデータを受信できます。

注記 この例では、A はクライアントまたはサーバのどちらでもかまいませんが、B はサーバでなければなりません。

例: 階層構造の会話の終了

次の図は、正常に終了する階層構造の会話を示しています。

図 7-3 接続の階層構造

 

この例では、サービス B は会話のメンバで、2 番目のサービス C との接続を開始しています。つまり、A - B 間 と B - C 間という 2 つのアクティブな接続が存在しています。B がこの両方の接続を制御している場合に TPRETURN の呼び出しを行うと、呼び出しは失敗し、すべてのオープン接続に TPEV_SVCERR イベントが通知され、接続が切断されます。

両方の接続を正常に終了するには、次の処理を順に行います。

1. B は、C との接続に TPRECVONLY フラグを設定して TPSEND を呼び出し、B - C 間の接続の制御を C に渡します。

2. C は、状況に応じて TPRETURN-VAL IN TPSVCRET に TPSUCCESS、TPFAIL、または TPEXIT を設定して、TPRETURN を呼び出します。

3. B は、TPRETURN を呼び出し、A にイベント (TPEV_SVCSUCC または TPEV_SVCFAIL) を通知します。

注記 会話型サービスは、別のサービスと通信するために要求/応答型の呼び出しを行うことができます。そのため、前述の例では、B から C への呼び出しに TPCONNECT ではなく TPCALL または TPACALL を使用することもできます。ただし、会話型サービスが TPFORWAR を呼び出すことはできません。

会話の切断

エラーの発生により接続を終了する唯一の方法は、TPDISCON(3cbl) ルーチンを呼び出すことです。これは、「プラグを抜くこと」と同じです。このルーチンを呼び出すことができるのは、会話のイニシエータ (クライアント) だけです。

注記 この方法で会話を終了することはお勧めしません。アプリケーションを正常に終了するには、下位サーバで TPRETURN ルーチンを呼び出します。

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

01 TPSVCDEF-REC.
     COPY TPSVCDEF.

01 TPSTATUS-REC.
     COPY TPSTATUS.

CALL "TPDISCON" USING TPSVCDEF-REC TPSTATUS-REC.

COMM-HANDLE 引数は、接続が確立したときに TPCONNECT ルーチンによって返される通信ハンドルを指定します。

TPDISCON ルーチンは、接続の相手側のサービスに対して TPEV_DISCONIMM イベントを生成し、COMM-HANDLE を無効にします。トランザクションが実行中の場合、そのトランザクションはアボートし、データは失われます。

COMM-HANDLE で接続の開始側と識別されていないサービスから TPDISCON が呼び出されると、そのルーチンは失敗し、エラー・コード TPEBADDESC が生成されます。

イベントおよびエラー・コードの全リストとその説明については、『BEA Tuxedo COBOL リファレンス』の TPDISCON(3cbl) を参照してください。

 

---

会話型のクライアントおよびサーバのビルド

次のコマンドを使用して、会話型のクライアントおよびサーバをビルドします。

• buildclient() (『C 言語を使用した BEA Tuxedo アプリケーションのプログラミング』の「クライアントのビルド」を参照)

• buildserver() (『C 言語を使用した BEA Tuxedo アプリケーションのプログラミング』の「サーバのビルド」を参照)

会話型サービスと要求/応答型サービスでは、次の操作を行うことはできません。

• 同じサーバにクライアントとサーバを作成すること

• クライアントとサーバに同じ名前を付けること

 

---

会話型通信イベント

BEA Tuxedo システムの会話型通信では、5 つのイベントが認識されます。これらのイベントはすべて TPRECV に通知でき、そのうちの 3 つは TPSEND にも通知できます。

次の表は、イベント、そのイベントを受け取るルーチン、および各イベントの簡単な説明を示しています。

表 7-1 会話型通信のイベント

イベント	イベントを受け取る関数	説明
TPEV_SENDONLY	TPRECV	接続の制御が渡されました。この時点で、このプロセスは TPSEND を呼び出すことができます。
TPEV_DISCONIMM	TPSEND、 TPRECV、TPRETURN	接続は既に切断され、通信を継続することはできません。TPDISCON ルーチンはこのイベントを接続の開始側に通知します。下位サービスとの接続がオープンしたままになっている場合に、TPRETURN が呼び出されたときは、このイベントをすべてのオープン接続に送信します。接続はエラーが原因で切断されます。トランザクションが存在している場合は、アボートします。
TPEV_SVCERR	TPSEND	接続の開始側が受信します。通常は、下位プログラムが接続の制御を持たない場合に、TPRETURN を呼び出したことを示します。
	TPRECV	接続の開始側が受信します。下位プログラムが TPSUCCESS または TPFAIL、および妥当なデータ・バッファを使用して TPRETURN を呼び出したが、エラーが発生して呼び出しが完了しなかったことを示します。
TPEV_SVCFAIL	TPSEND	接続の開始側が受信します。下位プログラムが接続の制御を持たない場合に TPRETURN を呼び出し、TPFAIL または TPEXIT、およびデータなしで TPRETURN が呼び出されたことを示します。
	TPRECV	接続の開始側が受信します。下位サービスの処理が正常に終了しなかったこと (つまり、TPRETURN が TPFAIL または TPEXIT で呼び出されたこと) を示します。
TPEV_SVCSUCC	TPRECV	接続の開始側が受信します。下位サービスの処理が正常に終了したこと (つまり、TPRETURN が TPSUCCESS で呼び出されたこと) を示します。