CBLDCRPC('CALL ')

PROCEDURE DIVISIONの指定

CALL 'CBLDCRPC' USING 一意名1 一意名2 一意名3

DATA DIVISIONの指定

01 一意名1.
   02 データ名A  PIC X(8) VALUE 'CALL    '.
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(3).
   02 データ名C  PIC S9(9) COMP VALUE ZERO.
   02 データ名D  PIC S9(9) COMP.
   02 データ名E  PIC X(32).
   02 データ名F  PIC X(n).
01 一意名2.
   02 データ名G  PIC S9(9) COMP.
   02 データ名H  PIC X(n).
01 一意名3.
   02 データ名I  PIC S9(9) COMP.
   02 データ名J  PIC X(n).

●データ名A

遠隔サービスの要求を示す要求コードを「VALUE 'CALL△△△△'」と設定します。

●データ名C

RPCの形態とオプションを，数値で設定します。

0 … 同期応答型RPC

2 … 非同期応答型RPC

1 … 非応答型RPC

4 … 連鎖RPC

トランザクション処理からのサービス要求で，要求先の処理をトランザクションにしない場合は，RPCの形態を示す数値に「32」を加算します。「32」を加算すると，トランザクションの処理からのサービス要求でも，サービスプログラムの処理はトランザクションになりません。

サービスグループ名にドメイン修飾をする場合は，RPCの形態を示す数値に「256」を加算します。ドメイン修飾をしたRPCはトランザクションブランチにできません。そのため，トランザクションの処理から CBLDCRPC('CALL ')を使う場合は，必ず「256」に「32」を加算してください。

（例1）

同期応答型RPCでトランザクションにしないサービス要求をする場合

データ名Cには 0 ＋ 32 ＝ 32 を設定します。

（例2）

トランザクションの処理から，非同期応答型RPCでドメイン修飾をしたサービス要求をする場合

データ名Cには 2 ＋（256 + 32）＝ 290 を設定します。

●データ名E

SPPのサービス名を，31バイト以内のアスキー文字列で設定します。文字列の最後には空白を設定してください。この空白は文字列の長さに数えません。

●データ名F

SPPのサービスグループ名を，31バイト以内のアスキー文字列で設定します。文字列の最後には空白を設定してください。この空白は文字列の長さに数えません。

ドメイン修飾をしてサービスを要求するときは，サービスグループ名のあとに @（アットマーク）とDNSのドメイン名を付けて，文字列の最後には空白を設定してください。

●データ名G

サービスの入力パラメタ長（データ名Hの長さ）を設定します。1から DCRPC_MAX_MESSAGE_SIZE^※までの範囲の長さが設定できます。DCRPC_MAX_MESSAGE_SIZEは，dcrpc.hで定義してあります。

注※

rpc_max_message_sizeオペランドを使用した場合，DCRPC_MAX_MESSAGE_SIZEの値（1メガバイト）ではなく，rpc_max_message_sizeオペランドに指定した値になります。

●データ名H

サービスの入力パラメタを設定します。

●データ名I

サービスの応答の長さ（データ名Jの長さ）を設定します。1から DCRPC_MAX_MESSAGE_SIZE^※までの範囲の長さが設定できます。DCRPC_MAX_MESSAGE_SIZEは，dcrpc.hで定義してあります。

注※

rpc_max_message_sizeオペランドを使用した場合，DCRPC_MAX_MESSAGE_SIZEの値（1メガバイト）ではなく，rpc_max_message_sizeオペランドに指定した値になります。

●データ名B

ステータスコードが，5けたの数字で返されます。

●データ名D

非同期応答型RPCの場合に，記述子が返されます。

●データ名I

サービスプログラムが設定した，応答の長さ（データ名Jの長さ）が返されます。

●データ名J

サービスプログラムが設定した，応答が返されます。

サーバUAPに渡す値

サービスを要求するときには，サービスプログラムから返ってくる応答の領域（データ名J）を確保しておきます。クライアントUAPでは CBLDCRPC('CALL ')に次の値を設定します。

• 入力パラメタ（データ名H）

• 入力パラメタ長（データ名G）

• 応答の長さ（データ名I）

入力パラメタ，入力パラメタ長，応答の長さは，クライアントUAPの CBLDCRPC('CALL ')で設定した値が，そのままサービスプログラムに渡されます。文字コードや数字の表記形式を変えたい場合は，クライアントUAP，または要求されたサービスプログラムの処理で変換してください。応答を返さないサービスプログラムのサービスを要求するときは，応答の長さを設定しても無視されます。

入力パラメタ長と応答の長さの最大値は，それぞれヘッダファイルdcrpc.hのDCRPC_MAX_MESSAGE_SIZE^※で宣言しています。最大値を確認する場合は，dcrpc.hの内容を参照してください。

注※

rpc_max_message_sizeオペランドを使用した場合，DCRPC_MAX_MESSAGE_SIZEの値（1メガバイト）ではなく，rpc_max_message_sizeオペランドに指定した値になります。

サーバUAPから戻ってくる値

サービスプログラムの処理が終了して応答が戻ってくると，次の値を参照できます。

• サービスプログラムの応答（データ名J）

• サービスプログラムの応答の長さ（データ名I）

データ名Iはサービスプログラムから実際に返ってきた応答の長さです。データ名Jとデータ名Iを参照できる場合を次に示します。

• 同期応答型RPC，連鎖RPCの場合

  CBLDCRPC('CALL ')がリターンしたあと。

• 非同期応答型RPCの場合

  CBLDCRPC('POLLANYR')が，該当する応答を受け取ってリターンしたあと。データ名Iは参照できません。

• 非応答型RPCの場合

  データ名Jとデータ名Iは参照できません。

CBLDCRPC('CALL ')，またはCBLDCRPC('POLLANYR')がエラーリターンした場合には，データ名Jとデータ名Iは参照できません。

返ってきた応答が，クライアントUAPで確保した応答の領域（データ名I）よりも大きい場合は，ステータスコード「00309」でエラーリターンします。

データ名Cに設定する値

データ名Cに設定した値とCBLDCRPC('CALL ')の実行結果について説明します。

• 同期応答型RPC（データ名Cに0を設定）

  CBLDCRPC('CALL ')は，応答が返るか，通信先でエラーが起こるまでリターンしません。

• 非同期応答型RPC（データ名Cに2を設定）

  CBLDCRPC('CALL ')は，すぐにリターンします。ただし，応答と応答の長さを参照できるのは，CBLDCRPC('POLLANYR')で非同期に応答を受信したあとです。応答（データ名J）の領域は，次に示す方法で非同期応答型RPCを終了するまで，解放しないでください。

  • CBLDCRPC('POLLANYR')で応答を受け取る

  • CBLDCRPC('DISCARDF')で応答の受信を拒否

  • トランザクションの処理からサービスを要求した場合は，コミット，またはロールバックした

トランザクションの処理で非同期応答型RPCを使う場合，同期点処理（コミット，またはロールバック）前に CBLDCRPC('POLLANYR')で応答を受け取ってください。同期点処理後には，CBLDCRPC('POLLANYR')で応答は受け取れません。

CBLDCRPC('POLLANYR')が受信する応答を特定する場合は，CBLDCRPC('CALL ')がリターンしたときに返された正の整数（記述子）を，CBLDCRPC('POLLANYR')の引数に設定します。受信する応答を特定する場合は，CBLDCRPC('CALL ')のデータ名Dの値を保持しておいてください。

なお，非トランザクションの処理で，同期点処理後に応答を受け取りたい場合は，システムサービス定義のrpc_extend_functionオペランドで該当するオプションを指定する必要があります。rpc_extend_functionについては，マニュアル「OpenTP1 システム定義」を参照してください。

• 非応答型RPC（データ名Cに1を設定）

  CBLDCRPC('CALL ')は，サービスプログラムの処理が終わるのを待たないで，すぐにリターンします。サービスプログラムは応答を返さないサービスと見なされます。そのため，サービスプログラムが実行されたかどうかは，サービスを要求したUAPからはわかりません。非応答型RPCを設定した場合は，応答（データ名J）と応答の長さ（データ名I）の値は参照できません。

• 連鎖RPC（データ名Cに4を設定）

  CBLDCRPC('CALL ')は，応答が返るか，通信先でエラーが起こるまでリターンしません。連鎖RPCで同じサービスグループに属するサービスを複数回要求する場合は，最初の要求時と同じプロセスで実行できます。

  連鎖RPCを使う場合には，次に示す制限があります。

  1. 2回目以降のCBLDCRPC('CALL ')では，ユーザサーバ，およびサービスの閉塞を検出できません。

  2. 2回目以降のCBLDCRPC('CALL ')でサービスプログラムの処理で異常が起こった場合には，ユーザサーバ全体が閉塞します。サービス単位では閉塞しません。

サーバUAPがあるノードのOpenTP1が稼働していない場合

サービスを要求されるOpenTP1が稼働していない場合は，CBLDCRPC('CALL ')は次に示すどれかのステータスコードでエラーリターンします。

「00306」

「00314」

「00315」

「00320」

サーバUAPが稼働していない場合

サーバUAPがマルチサーバの場合，異常終了中，または部分回復処理中であっても，サービス要求はOpenTP1で新しく起動されたプロセスで実行されます。ただし，次に示す場合は，CBLDCRPC('CALL ')はエラーリターンします。

1. 閉塞しているSPPへはサービスを要求できません。サービスグループが閉塞されている場合は，「00312」でエラーリターンします。

2. ユーザサーバの停止コマンド（dcsvstopコマンド）またはOpenTP1の停止コマンド（dcstopコマンド）で，SPPが終了処理中または終了している場合は，次に示すどれかのステータスコードでエラーリターンします。

   「00310」

   「00312」

   「00313」

   これらのうち，どのステータスコードが返るかは，CBLDCRPC('CALL ')を呼び出したタイミングで決まります。

3. OpenTP1が開始処理中の場合は，「00320」でエラーリターンします。この場合は，サーバUAP，またはOpenTP1が起動完了したあとに正常にサービスを要求できることがあります。OpenTP1は，メッセージID KFCA01809-Iのメッセージログが出力されると起動を完了するので，このメッセージが表示されてから再びサービスを要求してください。

ノード間負荷バランス機能およびノード間負荷バランス拡張機能の環境でサービスを要求した場合

ノード間負荷バランス機能およびノード間負荷バランス拡張機能の環境では，該当するサービスのスケジュールが閉塞していると，OpenTP1が自動的にほかのノードにサービス要求を転送します。ただし，次に示す条件の場合 CBLDCRPC('CALL ')は「00327」でエラーリターンします。

1. トランザクション処理の場合，転送しようとした先のノードにあるサービスのトランザクション属性が，閉塞していたサービスと一致していないとき。

2. 転送しようとした先のノードにあるOpenTP1のバージョンが，サービスを要求したOpenTP1のノードのバージョンよりも低いとき。

これらのエラーリターンが起こった場合は，次に示す処置をしてください。

1. ノード間負荷バランス機能およびノード間負荷バランス拡張機能を構成する複数のSPPのトランザクション属性を一致させてください。

2. ノード間負荷バランス機能およびノード間負荷バランス拡張機能を構成する複数のOpenTP1のバージョンを一致させてください。

ソケット受信型サーバへサービスを要求する場合

ソケット受信型サーバでは，ユーザサービス定義のmax_socket_msgオペランドとmax_socket_msglenオペランドの指定で，データの輻輳制御をしています。そのため，定義した値を超えた場合，サービス要求を受信できない場合があります。このとき CBLDCRPC('CALL ')は，「00356」でエラーリターンします。このステータスコードが返った場合，クライアントUAPはしばらく時間をおいてから再実行すれば，サービスを要求できることがあります。

連鎖RPCを使った場合

トランザクションとして処理している連鎖RPCを使っているUAPから，同じサーバUAPへトランザクションでないCBLDCRPC('CALL ')を呼び出すと，「00367」でエラーリターンします。

オンラインテスタを使っている場合

オンラインテスタを使っている場合に，テストモードのUAPとテストモードでないUAPとの間でCBLDCRPC('CALL ')を呼び出すと，「00366」でエラーリターンします。

セキュリティ機能を使っている場合

目的のサービスがセキュリティ機能で保護されていて，CBLDCRPC('CALL ')を呼び出したクライアントUAPにSPPへのアクセス権がない場合は，「00370」でエラーリターンします。

クライアントUAPの時間監視でエラーになる場合

次に示す場合には，クライアントUAPのユーザサービス定義のwatch_timeオペランドに指定した時間が経過したあとで，「00307」でエラーリターンします。

• SPPがあるノードのOpenTP1全体が異常終了した場合

• サービス要求のデータがサーバUAPに届く前，またはサーバUAPの処理が完了してからクライアントUAPに結果が届く前に障害が起こった場合

CBLDCRPC('CALL ')がエラーリターンしてもコミットとなる場合

サービスを要求されたサービスプログラムの異常終了や，ノードの障害，ネットワーク障害の場合でも，「00307」がリターンすることがあります。クライアントUAPがトランザクション処理でない場合は，「00307」が返っても，要求したサービスがあるサービスプログラムは正常に終了していて，データベースへの更新などが実行されているときもあります。

ロールバック処理が必要なステータスコード

トランザクション処理から呼び出したCBLDCRPC('CALL ')がエラーリターンした場合，ステータスコードによっては，必ずトランザクションがロールバック（サーバUAPがrollback_only状態）になります。この場合，コミット，またはロールバックのCOBOL-UAP作成用プログラムのどちらを使っても，必ずロールバックになります。必ずロールバックになるCBLDCRPC('CALL ')のステータスコードを次に示します。

「00311」

「00317」

「00319」

「00326」

ドメイン修飾をしてサービスを要求するときの注意

1. ドメイン修飾をしてサービスを要求する場合は，CBLDCRPC('CALL ')のデータ名CのRPCの形態を示す数値に（256＋32）を加算します。（256＋32）を加算しないでドメイン修飾をしたサービスグループ名を設定すると，CBLDCRPC('CALL ')は「00310」でエラーリターンします。

2. ドメイン修飾したRPCは，CBLDCRPC('CALL ')を呼び出したプロセスがトランザクションの処理でも，トランザクションを拡張できません。そのため，トランザクションの処理からドメイン修飾をしたサービス要求をする場合は，データ名CのRPCの形態を示す数値に（256＋32）を加算して，トランザクションを拡張しないようにしてください。なお，ドメイン名に自ドメインを設定した場合でも，トランザクションを拡張できません。

3. ドメイン修飾をしたRPCでは，キュー受信型サーバにだけサービスを要求できます。ソケット受信型サーバへは，ドメイン修飾をしたサービス要求はできません。

4. ドメイン修飾をしたサービス要求では，namdomainsetupコマンドで登録したホストで起動されるドメイン代表スケジュールサービスへサービス要求を送信します。ドメイン代表スケジュールサービスのポート番号は，/etc/services から取得します。サービス要求の送信で障害が起こった場合は，namdomainsetupコマンドで複数のホスト名を登録していれば，順次送信を試みます。ドメイン修飾をしたRPCが正常に終了しても，ドメイン代表スケジュールサービスへの送信で障害が起こっている場合もあります。

ドメイン修飾をしたサービス要求をする前の準備

ドメイン修飾をしたRPCでは，次に示す環境設定をしてください。

1. DNSのドメインデータファイルへ，ドメイン代表スケジュールサービスを起動するホスト名を登録します。登録するときは，namdomainsetupコマンドを使います。

2. ドメイン修飾をしたサービス要求をするOpenTP1を起動するホストの /etc/services へ，ドメイン代表スケジュールサービスのポート番号を設定します。ポート番号は，次の形式で記述してください。

       OpenTP1scd  ポート番号/tcp

3. ドメイン代表スケジュールサービスを起動するOpenTP1のスケジュールサービス定義のscd_portオペランドに，ドメイン代表スケジュールサービスのウェルノウンポートを指定します。