CBLDCUTO('T-STATUS')

PROCEDURE DIVISIONの指定

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

DATA DIVISION の指定

01 一意名1.
   02 データ名A  PIC X(8) VALUE 'T-STATUS'.
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(3).
   02 データ名Z  PIC S9(9) COMP  VALUE  ZERO.
01 一意名2.
   02 データ名C  PIC X(4).
   02 データ名D  PIC X(1).
   02 データ名E  PIC X(1).
   02 データ名F  PIC X(1).
   02 データ名G  PIC X(1).
   02 データ名H  PIC X(1).
   02 FILLER    PIC X(22).

●データ名A

ユーザサーバのテスト状態の報告を示す要求コードを「VALUE 'T-STATUS'」と設定します。

●データ名Z

0を設定します。

●データ名B

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

●データ名C

テストユーザID（環境変数 DCUTOKEYに設定した値）が設定されます。

●データ名D

ユーザサーバがテストモードで稼働しているかどうかが設定されます。

VALUE 'T' … テストモードで稼働しています。

VALUE 'N' … テストモードで稼働していません。

●データ名E

グローバルトランザクションの処理状態が設定されます。

VALUE 'C' … 同期点処理でコミットします。

VALUE 'R' … 同期点処理でロールバックします。

VALUE 'N' … 非トランザクションの状態です。

空白 … 非テストモードです。または，MCFのライブラリを結合したMHPです。

●データ名F

ユーザサービス定義のtest_modeオペランドに指定した，テスト種別が設定されます。

VALUE 'T' … テスト専用UAP（target）としてテストしています。

VALUE 'U' … 使用可能UAP（usable）としてテストしています。

VALUE 'S' … シミュレートMHP（simmhp）としてテストしています。

VALUE 'N' … テスト対象外UAP（no）です。

●データ名G

ユーザサービス定義のtest_transaction_commitオペランドで指定した，トランザクションの同期点の扱いが設定されます。

VALUE 'C' … 同期点でコミット（Y）します。

VALUE 'R' … 同期点でロールバック（N）します。

空白 … 非テストモードです。または，MCFのライブラリを結合したMHPです。

●データ名H

ユーザサービス定義のtest_adm_call_commandオペランドで指定した，コマンドの実行結果の扱いが設定されます。

VALUE 'D' … コマンドを実行（do）します。

VALUE 'S' … 実行結果に仮定値を設定（skip）します。

VALUE 'F' … 運用コマンド結果データファイルのデータを使用（file）します。

空白 … 非テストモードです。または，MCFのライブラリを結合したMHPです。