CBLEEDBQ('OBSINQ ')

PROCEDURE DIVISIONの指定

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

DATA DIVISIONの指定

01 一意名1.
   02 データ名A  PIC X(8) VALUE 'OBSINQ  '.
   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).
01 一意名3.
   02 データ名F  PIC X(32).
   02 データ名G  PIC X(28).
   02 データ名H  PIC X(24).
   02 データ名I  PIC 9(9) COMP.
   02 データ名J  PIC 9(9) COMP.
   02 データ名K  PIC 9(9) COMP.
   02 データ名L  PIC 9(9) COMP.
   02 データ名M  PIC 9(9) COMP.
   02 データ名N  PIC 9(9) COMP.

●データ名A

DBキューの情報の照会要求を示す要求コードを「VALUE 'OBSINQ△△'」と設定します。

●データ名C

0を設定します。

●データ名D

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

●データ名E

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

●データ名F

指定したロットに現在接続しているサービス名が返されます。文字列の最後はLOW-VALUEです。^※1

●データ名G

データ名Dに設定したDBキュー名が返されます。文字列の最後はLOW-VALUEです。

●データ名H

データ名Eに設定したロット名が返されます。文字列の最後はLOW-VALUEです。

●データ名I

ロットの状態が返されます。

1

実行中

2

障害による読み出し中断中

4

運用による読み出し中断中

8

未起動

16

回復処理失敗による中断中

32

正常終了トランザクション障害による中断中

48

回復処理失敗による正常終了トランザクション中断中，または正常終了トランザクション障害による中断中の回復処理失敗

64

正常，中断，または強制終了トランザクション実行中

80

回復処理失敗による中断の終了トランザクション実行中

●データ名J

ロットのオンラインバッチ処理形態が返されます。^※1

1

データ型オンラインバッチ処理

2

イベント型オンラインバッチ処理

●データ名K

DBキュー内の該当するロットのメッセージ数が返されます。^※1，※2

●データ名L

該当するロットの読み出し済みメッセージ数が返されます。^※1，※2

●データ名M

該当するロットのスキップメッセージ数が返されます。^※1，※2

●データ名N

未読み出しメッセージ数が返されます。^※1，※2

注※1

データ名Iが8以外のときに値が返されます。

注※2

該当するロットのデータ名Jが1で，データ名Iが16以外のときに，値が返されます。

●データ名B

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