CBLEETRN('C-COMMIT')
- 〈このページの構成〉
形式
PROCEDURE DIVISIONの指定
CALL 'CBLEETRN' USING 一意名1
DATA DIVISIONの指定
01 一意名1. 02 データ名A PIC X(8) VALUE 'C-COMMIT'. 02 データ名B PIC X(5).
機能
トランザクションの同期点を取得します。ルートトランザクションブランチから，処理が正常に終了したこと（コミット）を，トランザクションを構成するトランザクションブランチ，トランザクションサービス，リソースマネジャに知らせます。
CBLEETRN('C-COMMIT')が正常に終了すると，新しいグローバルトランザクションが開始します。CBLEETRN('C-COMMIT')を呼び出したスレッドは，このトランザクションの範囲内です。
グローバルトランザクションが複数のトランザクションブランチから構成される（CBLEETRN('C-COMMIT')を呼び出したUAPだけではない）場合は，それぞれのトランザクションブランチの処理結果がコミットにならないかぎり，コミットされません。
CBLEETRN('C-COMMIT')を呼び出せるのは，ルートトランザクションブランチだけです。それ以外のUAPから呼び出した場合は，ステータスコード「00941」でエラーリターンします。
CBLEETRN('C-COMMIT')を呼び出すスレッドは，このマニュアルの記述に従って正しく作成されたUAPを稼働させたものでなければなりません。
CBLEETRN('C-COMMIT')は，同期点処理が完了したときに正常に終了，またはエラーリターンのどちらかで返ります。
サービスプログラムリターン時に明示的にCBLEETRN('C-COMMIT')，またはCBLEETRN('C-ROLL ')を呼び出さない場合は，トランザクションの同期点を取得します。
トランザクション起動後にUAPをリターンするまでの，CBLEETRN('C-COMMIT')の呼び出し回数の上限値を，トランザクション関連定義のtrn_max_commit_countオペランドで指定できます。CBLEETRN('C-COMMIT')の呼び出し回数が，trn_max_commit_countオペランドで指定した上限値に達した場合，トランザクション関連定義のtrn_max_commit_downmodeオペランドの指定に従って，異常終了するか，またはKFSB50927-Eメッセージを出力します。異常終了時にサービスを閉塞するかどうかは，プロセス関連定義のservice_holdオペランドで指定します。
UAPで値を設定するデータ領域
●データ名A
連鎖モードのコミットを示す要求コードを「VALUE 'C-COMMIT'」と設定します。連鎖モードのコミットをした処理以降も，この内容は変わりません。
TP1/EEから値が返されるデータ領域
●データ名B
ステータスコードが，5けたの数字で返されます。
ステータスコード
|
ステータスコード |
意味 |
|---|---|
|
00000※ |
正常に終了しました。CBLEETRN('C-COMMIT')が終了したあとも，このスレッドはトランザクション下にあって，グローバルトランザクションの範囲内です。 |
|
00001 |
TP1/EEの環境下にありません。 |
|
00004 |
UOCから発行しているため，この機能は使用できません。 |
|
00005 |
オフラインバッチプロセスから発行しているため，この機能は使用できません。 |
|
00901 |
要求コード（データ名A）が間違っています。 |
|
00903 |
CBLEETRN('C-COMMIT')を呼び出したグローバルトランザクションは，ヒューリスティック決着のため，あるトランザクションブランチはコミットとなり，あるトランザクションブランチはロールバックとなりました。このステータスコードは，ヒューリスティック決着の結果が，グローバルトランザクションの同期点の結果と一致しなかった場合にリターンします。このステータスコードが返る原因になったUAP，リソースマネジャ，およびグローバルトランザクションの同期点の結果は，メッセージログファイルを参照してください。このステータスコードが返ったあとも，このスレッドはトランザクション下にあって，グローバルトランザクションの範囲内です。 |
|
00904 |
グローバルトランザクションのトランザクションブランチがヒューリスティックに決着しました。しかし，障害のため，ヒューリスティックに決着したトランザクションブランチの同期点の結果がわかりません。このステータスコードが返る原因になったUAP，リソースマネジャ，およびグローバルトランザクションの同期点の結果は，メッセージログファイルを参照してください。このステータスコードが返ったあとも，このスレッドはトランザクション下にあって，グローバルトランザクションの範囲内です。 |
|
00932 |
コミット処理に失敗した，またはCBLEETRN('ROLLMARK')を呼び出し済みのため，ロールバックを行いました。 |
|
00941 |
CBLEETRN('C-COMMIT')を不正なコンテクスト（例えば，すでにトランザクション中にいない）で呼び出しています。トランザクションモードに対する影響はありません。 |
|
00942 |
通信障害やリソースマネジャ障害などによってトランザクション決着に失敗したため，トランザクション回復処理を行います。このステータスコードが返ったあとも，このスレッドはトランザクション下にあって，グローバルトランザクションの範囲内です。 |
- 注※
-
次の要求がある場合は，要求を実行します。
-
CBLEEMCH('CMTSND ')によるトランザクション非同期の一方送信メッセージの送信要求（TP1キャッシュ機能を使用する場合）
-
CBLEEMCH('CMTSNDSY')によるトランザクション同期の一方送信メッセージの送信要求（TP1キャッシュ機能を使用する場合）
-
CBLEEMCP('SEND ')による非同期一方送信メッセージの送信要求（MCPを使用する場合）
-
CBLEERPC('CMTSND ')によるトランザクションと同期して送信する非応答型RPC要求
-
CBLEERPC('CMTSNDTO')による通信先を指定したトランザクションと同期して送信する非応答型RPC要求
-
CBLEETIM('EXECAP ')（データ名Cに'COMT'を設定）によるタイマトランザクション起動要求
-
指定例
01 MISC.
02 CMD-CODE PIC X(8).
02 STATUS-CODE PIC X(5).
:
:
MOVE 'C-COMMIT' TO CMD-CODE OF MISC.
CALL 'CBLEETRN' USING MISC.
IF STATUS-CODE OF MISC NOT EQUAL TO '00000' THEN
MOVE 'CANNOT COMMIT TRANSACTION' TO ERRMSG OF OUT-ERROR-REC
WRITE OUT-ERROR-REC
END IF.
注意事項
-
次の状態のとき，CBLEETRN('C-COMMIT')は正常終了します。
-
リソースマネジャ接続失敗によるトランザクション縮退起動
-
新しいグローバルトランザクション生成時にリソースマネジャ接続失敗
必要に応じてCBLEETRN('GETINFO ')を呼び出してリソースマネジャの状態を確認してください。
-
-
【TP1/FSP限定】DBキューの交替用メッセージ表書き込み機能使用時に，この関数内で行うDBキューのメッセージ表へのアクセスで障害が発生すると，この関数はリターンしないでトランザクションがリトライロールバックする場合があります。