CBLEEDBQ('SRVCTL ')

PROCEDURE DIVISIONの指定

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

DATA DIVISIONの指定

01 一意名1.
  02 データ名A  PIC X(8) VALUE 'SRVCTL  '.
  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).

●データ名A

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

●データ名C

0を設定します。

●データ名D

要求種別を設定します。

VALUE 'D'

DBキューサービスを閉塞します。

VALUE 'A'

DBキューサービスの閉塞を解除します。

●データ名E

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

●データ名B

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