CBLEEDBQ('OBSEND ')

〈このページの構成〉

名称
形式
機能
UAPで値を設定するデータ領域
TP1/EEから値が返されるデータ領域
注意事項

名称

オンラインバッチ処理の終了

形式

PROCEDURE DIVISIONの指定

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

DATA DIVISIONの指定

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

ページの先頭へ

機能

イベント型オンラインバッチ処理の場合に，オンラインバッチ処理の終了要求を行います。

ページの先頭へ

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

●データ名A

オンラインバッチ処理の終了要求を示す要求コードを「VALUE 'OBSEND△△'」と設定します。

●データ名C

0を設定します。

●データ名D

DBキュー名を27バイト以内のアスキー文字列で設定します。文字列の末尾には空白を付けてください。この空白は文字列の長さに数えません。

●データ名E

ロット名を23バイト以内のアスキー文字列で設定します。文字列の末尾には空白を付けてください。この空白は文字列の長さに数えません。

ページの先頭へ

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

●データ名B

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

ステータスコード	意味
00000	正常に終了しました。
00001	TP1/EEの環境下にありません。
00004	UOCから発行しているため，この機能は使用できません。
00005	オフラインバッチプロセスから発行しているため，この機能は使用できません。
05601	データ名に設定した値が間違っています。
05602	DBキュー機能は使用できません。
05603	この関数を呼び出せる状態ではありません。
05604	データ名に設定したDBキュー名は存在しません。
05615	そのほかのエラーが発生しました。
05621	関数の呼び出し条件が不正です。
05623	オンラインバッチ機能のライブラリがリンケージされていません。
05631	データ名に設定したロット名は存在しません。または，対象のロットではありません。
05634	該当するロットが次に示す状態でないため，要求を受け付けられません。実行中該当するロットに対して関数を発行したトランザクションがコミットまたはロールバックしている
05638	対象ロットのサービストランザクションから呼び出されていません。

ページの先頭へ

注意事項

この関数は，対象ロットのサービストランザクションからだけ呼び出せます。
呼び出し元トランザクションがコミットしたときに，オンラインバッチ処理は終了します。
呼び出し元トランザクションがコミットまたはロールバックするまでの間，該当するロットが受け付けられるオンラインバッチの関数は，CBLEEDBQ('OBSINQ ')およびCBLEEDBQ('OBSCDT ')だけです。ほかのオンラインバッチの関数は受け付けません。
この関数の動作はオンラインバッチ機能関連定義のdbq_obs_trn_end_apiオペランドの指定値に依存します。dbq_obs_trn_end_apiオペランドの指定値がYの場合，CBLEETRN('C-COMMIT')またはCBLEETRN('C-ROLL ')の呼び出し以降，この関数は受け付けません。

ページの先頭へ