CBLEERPC('CALLTO ')

PROCEDURE DIVISIONの指定

CALL 'CBLEERPC' USING 一意名1 一意名2 一意名3 一意名4

DATA DIVISIONの指定

01 一意名1.
  02 データ名A  PIC X(8) VALUE 'CALLTO  '.
  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).
01 一意名4.
  02 データ名K  PIC X(1).
  02 FILLER     PIC X(1).
  02 データ名L  PIC 9(4) COMP-X.
  02 データ名M  PIC X(5).
  02 FILLER     PIC X(3).
  02 データ名N  PIC X(n).

●データ名A

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

●データ名C

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

0

同期応答型RPC

1

非応答型RPC

2

非同期応答型RPC

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

非同期応答型RPCで，サービス関数が設定した応答の長さを参照したい場合は，RPCの形態を示す数値に「512」を加算します。その場合は，CBLEERPC('POLLANYR')の正常終了時に，CBLEERPC('CALLTO')のサービス応答とサービス応答の長さに，サービス関数が設定した応答と応答の長さがそれぞれ設定されます。「512」を加算しない場合は，サービス応答だけ設定されます。

（例）

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

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

●データ名E

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

●データ名F

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

●データ名G

サービスの入力パラメタ長（データ名Hの長さ）を設定します（単位：バイト）。1〜EERPC_MAX_MESSAGE_SIZE_EX^※の範囲の値を指定できます。EERPC_MAX_MESSAGE_SIZE_EXは，eerpc.hで定義してあります。

注※

従来のEERPC_MAX_MESSAGE_SIZEは，eerpc.hで定義してありますが，EERPC_MAX_MESSAGE_SIZE_EXの使用をお勧めします。

●データ名H

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

●データ名I

サービスの応答の長さ（データ名Jの長さ）を設定します（単位：バイト）。1〜EERPC_MAX_MESSAGE_SIZE_EX^※の範囲の値を指定できます。EERPC_MAX_MESSAGE_SIZE_EXは，eerpc.hで定義してあります。

非応答型RPCの場合も，サービスの応答の長さを設定した領域のアドレスを指定する必要があります。この場合，サービスの応答の長さには，0を設定します。

注※

従来のEERPC_MAX_MESSAGE_SIZEは，eerpc.hで定義してありますが，EERPC_MAX_MESSAGE_SIZE_EXの使用をお勧めします。

●データ名K

VALUE 'N'

データ名Lにネームサービスのポート番号を指定した場合に指定してください。

VALUE 'S'

サービス要求先（TP1/Server Base）のスケジュールサービスのポート，またはサービス要求先（TP1/EE）のmysvgdefオペランドで指定したポートに対してサービスを要求する場合に指定してください。

VALUE 'D'

上記以外の場合に指定してください。

●データ名L

ホスト名を検索キーとする場合のポート番号（1〜65535）を指定します。

データ名KにVALUE 'N'を指定した場合，サービス要求先ノードのネームサービスのポート番号（TP1/Server Baseのシステム共通定義のname_portオペランドに指定した値）を指定します。

データ名KにVALUE 'D'を指定した場合は，サービス要求元のネームサービスのポート番号と，サービス要求先のネームサービスのポート番号が同じであることが前提となります。

データ名KにVALUE 'S'を指定した場合，サービス要求先がTP1/Server BaseのSPPのときは，要求先のスケジュールサービスのポート番号を指定します。サービス要求先がTP1/EEのときは，要求先の自サービスグループ定義のmysvgdef定義コマンドで指定したポート番号を指定します。

データ名KにVALUE 'S'を指定し，データ名Lに0を指定した場合は，送信先ポート番号の省略値として，最初に定義した自サービスグループ情報のmysvgdef定義コマンドに指定したポート番号の値を仮定します。最初に定義したmysvgdef定義コマンドのポート番号に0を指定している場合は，データ名Lに0を指定できません。

ノード識別子を検索のキーとする場合は，データ名Lに指定した値は無視されます。

●データ名M

ノード識別子を検索のキーにする場合，サービス要求先のノード識別子を指定します。文字列の最後には空白文字を設定してください。この空白文字は文字列の長さに数えません。

ノード識別子は，OpenTP1システム共通定義のnode_idオペランドに指定した名称で，かつサービス要求先ノードのホスト名がグローバルドメイン内にあることが前提です。相手先がTP1/EEの場合も親TP1/Server Baseのノード識別子を指定してください。

ノード識別子を検索のキーにしない場合には，データ名Mに空白を指定してください。

データ名KにVALUE 'S'を指定した場合は，データ名Mに空白を指定してください。

●データ名N

ホスト名を検索のキーにする場合，サービス要求先ノードのホスト名を指定します。データ名KにVALUE 'D'以外を指定した場合は，データ名Nを必ず指定してください。

指定できるホスト名は1〜255文字の文字列です。文字列に使用できる文字は，英数字，ピリオド，およびハイフンです。ただし，IPアドレス形式は除きます。文字列の最後には空白を設定してください。この空白は文字列の長さに数えません。指定するホスト名は，/etc/hostsファイル，DNSなどで，IPアドレスとのマッピングができる名称です。

なお，サービス要求先ノードのホスト名はグローバルドメインに指定されていても，指定されていなくても，どちらでもかまいません。

ホスト名を検索キーにしない場合には，データ名Nに空白を指定してください。

●データ名B

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

●データ名D

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

●データ名I

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

●データ名J

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