Hitachi

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


CBLDCADM('STATUS ')

〈このページの構成〉

名称

ユーザサーバの状態の報告

形式

PROCEDURE DIVISIONの指定

CALL 'CBLDCADM' USING 一意名1

DATA DIVISIONの指定

01 一意名1.
   02 データ名A  PIC X(8)  VALUE 'STATUS  '.
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(3).
   02 データ名C  PIC X(5).
   02 データ名Z  PIC S9(9)  COMP VALUE ZERO.

機能

このプログラムを呼び出したユーザサーバの状態を報告します。ユーザサーバの状態は,データ名Cに返されるステータスコードで報告されます。

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

●データ名A

ユーザサーバの状態の報告を示す要求コードを「VALUE 'STATUS△△'」と設定します。

●データ名Z

0を設定します。

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

●データ名B

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

●データ名C

データ名Bに「00000」が返されたとき(正常終了時)に,ユーザサーバの状態が返されます。

ステータスコード

データ名Bに00000が返されたとき(正常終了時)に,データ名Cに返されるステータスコード(ユーザサーバの状態を示します)

ステータスコード

意味

00001

ユーザサーバは正常開始中です。

00002

ユーザサーバは再開始中です。

00003

ユーザサーバはオンライン中です。

00004

ユーザサーバは終了中です。

データ名Bに返されるステータスコード(エラーが起こったかどうかを示します)

ステータスコード

意味

00000

正常に終了しました。

01802

要求コード(データ名A)が間違っています。

01830

プロセス間通信でエラーが起こりました。

01831

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

01832

ステータス情報の入出力エラーが起こりました。

01833

このプログラムをオフラインの業務をするUAPから呼び出しています。オフラインの業務をするUAPからは呼び出せません。

CBLDCRPC('OPEN')を呼び出していません。