Hitachi

OpenTP1 Version 7 分散トランザクション処理機能 TP1/Server Base Enterprise Option プログラム作成の手引


CBLEEMCH('OTQINQIR')【XTC限定】

〈このページの構成〉

名称

出力キュー(OTQ)の情報の照会

形式

PROCEDURE DIVISIONの指定

CALL 'CBLEEMCH' USING 一意名1 一意名2

DATA DIVISIONの指定

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

機能

指定したサービスグループ下のサービス名に対応する出力キューの情報を照会します。照会対象のメッセージは,トランザクション非同期の一方送信メッセージです。

UAPで値を設定する引数

●データ名A

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

●データ名Z

0を設定します。

●データ名E

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

●データ名F

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

TP1/EEから値が返されるデータ領域

●データ名B

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

●データ名G

出力キューの状態が次のコードで返されます。

0

正常

1

自動閉塞中

2

関数による閉塞中

3

コマンドによる閉塞中

●データ名H

出力キューへ最後に送信要求した,トランザクション非同期の一方送信メッセージの出力キューの通番が返されます。

●データ名I

出力キューから最後に送信した,トランザクション非同期の一方送信メッセージの出力キューの通番が返されます。

●データ名J

未送信(送信失敗を含む)のメッセージ数が返されます。

●データ名K

出力キューの閉塞レベルが返されます。

*

閉塞中でない

G

サービスグループレベル

S

サービスレベル

ステータスコード

ステータスコード

意味

00000

正常に終了しました。

00001

TP1/EEの環境下にありません。

00004

UOCから発行しているため,この機能は使用できません。

00005

オフラインバッチプロセスから発行しているため,この機能は使用できません。

08001

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

08010

データ名Fに設定したサービスグループ名は,定義されていません。

08011

データ名Eに設定したサービス名は,定義されていません。

08030

発行条件が不正です。