CBLDCRPC('GETWATCH')
- 〈このページの構成〉
形式
PROCEDURE DIVISIONの指定
CALL 'CBLDCRPC' USING 一意名1
DATA DIVISIONの指定
01 一意名1. 02 データ名A PIC X(8) VALUE 'GETWATCH'. 02 データ名B PIC X(5). 02 FILLER PIC X(3). 02 データ名C PIC S9(9) COMP VALUE ZERO.
機能
現在のサービス要求の応答待ち時間を参照します。CBLDCRPC('GETWATCH')は,CBLDCRPC('SETWATCH')で応答待ち時間を一時的に変更する前に,元の値を退避するために使います。
CBLDCRPC('GETWATCH')は,CBLDCRPC('SETWATCH')で変更したサービス応答待ち時間をリターンします。変更していない場合は,次に示す値をリターンします。
-
TP1/Server Baseの場合:システム共通定義のwatch_timeオペランドの値
-
TP1/LiNKの場合:180秒
CBLDCRPC('GETWATCH')で得られる値は,OpenTP1のリモートプロシジャコール(CBLDCRPC('CALL '))に対してだけ有効です。
UAPで値を設定するデータ領域
●データ名A
サービスの応答待ち時間の参照を示す要求コードを「VALUE 'GETWATCH'」と設定します。
●データ名C
0を設定します。
OpenTP1から値が返されるデータ領域
●データ名B
ステータスコードが,5けたの数字で返されます。
●データ名C
現在のサービス応答待ち時間が返されます。0が返された場合は,無制限に応答を待ち続ける指定であることを示します。
ステータスコード
ステータスコード |
意味 |
---|---|
00000 |
正常に終了しました。 |
00301 |
データ名に設定した値が間違っています。 要求コード(データ名A)が間違っている場合も含みます。 |
上記以外 |
プログラムの破壊などによる,予期しないエラーが起こりました。 |