Hitachi

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


CBLEEMCH('OTQSKIP ')【XTC限定】

〈このページの構成〉

名称

一方送信メッセージの送信スキップ

形式

PROCEDURE DIVISIONの指定

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

DATA DIVISIONの指定

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

機能

指定した通番までのトランザクション非同期の一方送信メッセージを送信済み状態として,出力キュー(OTQ)から破棄します。

指定したサービスグループ下のサービス名に対応する出力キューのメッセージを送信済み状態とします。一方送信メッセージの送信スキップ要求は,該当の出力キューが閉塞している場合だけ受け付けられます。

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

●データ名A

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

●データ名Z

0を設定します。

●データ名C

送信済みとする対象となるメッセージを設定します。

0

出力キューに格納しているすべてのメッセージを送信済みにします。

1

出力キューに格納している未送信(送信失敗を含む)の1メッセージを送信済みにします。

2

データ名Dで設定された出力キューの通番までのメッセージを送信済みにします。

●データ名D

送信済みとする出力キューの通番を設定します。

●データ名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

この関数を発行できる状態ではありません。

08050

メモリが不足しました。

08099

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

注意事項

送信スキップ対象のメッセージがない場合は,正常扱いとなります。