CBLDCTRN('INFO ')
- 〈このページの構成〉
形式
PROCEDURE DIVISIONの指定
CALL 'CBLDCTRN' USING 一意名1
DATA DIVISION の指定
01 一意名1.
02 データ名A PIC X(8) VALUE 'INFO '.
02 データ名B PIC X(5).
02 FILLER PIC X.
02 データ名C.
03 データ名D PIC S9(4) COMP VALUE ZERO.機能
CBLDCTRN('INFO ')を呼び出したUAPが，現在トランザクションとして処理しているかどうかをリターンします。
CBLDCTRN('INFO ')を呼び出すプロセスは，このマニュアルの記述に従って正しく作成されたUAPを稼働させたものでなければなりません。CBLDCTRN('INFO ')を呼び出すサービスが正常終了するためには，UAPの実行環境を設定するときに，トランザクション属性を指定していることが前提です。
UAPで値を設定するデータ領域
●データ名A
現在のトランザクションに関する情報の報告を示す要求コードを「VALUE 'INFO△△△△'」と設定します。以降の処理でも，この内容は変わりません。
●データ名C
現在のトランザクションに関する情報を格納する領域です。
●データ名D
0を設定します。
OpenTP1から値が返されるデータ領域
●データ名B
ステータスコードが，5けたの数字で返されます。
ステータスコード
|
ステータスコード |
意味 |
|---|---|
|
00001 |
CBLDCTRN('INFO ')を呼び出したプロセスは，トランザクションとして稼働しています。 |
|
00000 |
CBLDCTRN('INFO ')を呼び出したプロセスは，トランザクションとして稼働していません。 |
|
00908 |
要求コード（データ名A）が間違っています。 |
指定例
01 MISC.
02 CMD-CODE PIC X(8).
02 STATUS-CODE PIC X(5).
02 FILLER PIC X.
02 TRAN-INFO.
03 LEN PIC S9(4) COMP.
:
:
MOVE ZERO TO LEN OF TRAN-INFO OF MISC.
MOVE 'INFO' TO CMD-CODE OF MISC.
CALL 'CBLDCTRN' USING MISC.
IF STATUS-CODE OF MISC NOT EQUAL TO '00001' THEN
MOVE 'NOW IN TRANSACTION' TO ERRMSG OF OUT-ERROR-REC
WRITE OUT-ERROR-REC
END IF.
注意事項
このAPIはUAPトレースを取得していません。