Hitachi

OpenTP1 Version 7 分散トランザクション処理機能 OpenTP1 プログラム作成リファレンス COBOL言語編


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')で変更したサービス応答待ち時間をリターンします。変更していない場合は,次に示す値をリターンします。

CBLDCRPC('GETWATCH')で得られる値は,OpenTP1のリモートプロシジャコール(CBLDCRPC('CALL '))に対してだけ有効です。

UAPで値を設定するデータ領域

●データ名A

サービスの応答待ち時間の参照を示す要求コードを「VALUE 'GETWATCH'」と設定します。

●データ名C

0を設定します。

OpenTP1から値が返されるデータ領域

●データ名B

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

●データ名C

現在のサービス応答待ち時間が返されます。0が返された場合は,無制限に応答を待ち続ける指定であることを示します。

ステータスコード

ステータスコード

意味

00000

正常に終了しました。

00301

データ名に設定した値が間違っています。

要求コード(データ名A)が間違っている場合も含みます。

上記以外

プログラムの破壊などによる,予期しないエラーが起こりました。