Hitachi

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


CBLEEMCH('OTQBKCTL')【XTC限定】

〈このページの構成〉

名称

出力キュー(OTQ)の閉塞制御

形式

PROCEDURE DIVISIONの指定

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

DATA DIVISIONの指定

01 一意名1.
  02 データ名A  PIC X(8) VALUE 'OTQBKCTL'.
  02 データ名B  PIC X(5).
  02 FILLER      PIC X(3).
  02 データ名C  PIC S9(9) COMP VALUE ZERO.
01 一意名2.
  02 データ名D  PIC X(1).
  02 データ名E  PIC X(32).
  02 データ名F  PIC X(32).

機能

指定したサービスグループ下のサービス名に対応する出力キューの閉塞/閉塞解除,または送信先サービスグループ下のすべてのサービスに対応する出力キューの閉塞/閉塞解除を行います。

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

●データ名A

サービスの閉塞制御要求を示す要求コードを「VALUE 'OTQBKCTL'」と設定します。

●データ名C

0を設定します。

●データ名D

閉塞か閉塞解除かを設定します。

VALUE 'S'

出力キューを閉塞します。

出力キューの状態がすでに自動閉塞中の場合,関数による閉塞中の状態に変わります。

VALUE 'R'

出力キューの閉塞を解除します。

サービスグループレベルの場合,通信を行って送信先サービスグループの起動状態を確認します。

●データ名E

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

また,全サービスを対象にしたい場合,サービス名を設定しないで,先頭を空白にしください。

サービス名を設定しない場合は,サービスグループレベルの出力キューの閉塞/閉塞解除,サービス名を設定した場合は,サービスレベルの出力キューの閉塞/閉塞解除となります。

●データ名F

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

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

●データ名B

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

ステータスコード

ステータスコード

意味

00000

正常に終了しました。

00001

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

00004

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

00005

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

08001

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

08010

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

08011

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

08030

発行条件が不正です。

08041

この関数を発行できる状態ではありません。出力キューの閉塞処理中,または出力キューの閉塞解除処理中です。

08042

出力キューの閉塞解除をできる状態ではありません。

08099

システムエラーが起こりました。

注意事項

  1. サービスグループレベルで出力キューが閉塞中(出力キューの自動閉塞中含む)の場合,サービスレベルの出力キューの閉塞解除はできません。「08030」でエラーリターンします。

  2. サービスグループレベルの出力キューの自動閉塞中にサービスグループレベルの出力キューの閉塞要求を行った場合,出力キューの閉塞監視を終了します。ただし,サービスレベルの出力キューの閉塞要求を行った場合は,出力キューの閉塞監視は続行します。

  3. サービスグループレベルの出力キューの自動閉塞中にサービスグループレベルの出力キューの閉塞解除要求を行った場合,出力キューの閉塞監視を終了します。