CBLDCTRN('U-ROLL ')
- 〈このページの構成〉
形式
PROCEDURE DIVISIONの指定
CALL 'CBLDCTRN' USING 一意名1
DATA DIVISIONの指定
01 一意名1. 02 データ名A PIC X(8) VALUE 'U-ROLL '. 02 データ名B PIC X(5).
機能
トランザクションをロールバックします。非連鎖モードでロールバックしたあとには,トランザクションは続けて開始しません。
CBLDCTRN('U-ROLL ')を呼び出すことで,トランザクションブランチ,トランザクションサービス,およびリソースマネジャにロールバックを知らせます。
CBLDCTRN('U-ROLL ')は,グローバルトランザクションのどのトランザクションブランチからでも呼び出せます。ルートトランザクションブランチから呼び出した場合,CBLDCTRN('U-ROLL ')が正常に終了したあとには,新しいトランザクションは開始しません。ルートトランザクションブランチ以外から呼び出した場合は,そのトランザクションブランチをrollback_only状態にします。この場合,ルートトランザクションブランチの同期点処理が完了するまで,CBLDCTRN('U-ROLL ')を呼び出したトランザクションブランチはトランザクションの範囲内です。
CBLDCTRN('U-ROLL ')を呼び出すプロセスは,このマニュアルの記述に従って正しく作成されたUAPを稼働させたものでなければなりません。
CBLDCTRN('U-ROLL ')を呼び出すサービスが正常に終了するためには,UAPの実行環境を設定するときに,トランザクション属性を指定していることが前提です。
UAPで値を設定するデータ領域
●データ名A
非連鎖モードのロールバックを示す要求コードを「VALUE 'U-ROLL△△'」と設定します。非連鎖モードのロールバックをした処理以降も,この内容は変わりません。
OpenTP1から値が返されるデータ領域
●データ名B
ステータスコードが,5けたの数字で返されます。
ステータスコード
ステータスコード |
意味 |
---|---|
00000 |
正常に終了しました。CBLDCTRN('U-ROLL ')をルートトランザクションブランチから呼び出している場合は,このプロセスはトランザクション下にありません。プロセスはグローバルトランザクションの範囲の外です。ルートトランザクションブランチ以外から呼び出している場合は,このプロセスをrollback_only状態とします。 |
00903 |
CBLDCTRN('U-ROLL ')を呼び出したグローバルトランザクションは,ヒューリスティック決定のため,あるトランザクションブランチはコミットとなり,あるトランザクションブランチはロールバックとなりました。 このステータスコードは,ヒューリスティック決定の結果が,グローバルトランザクションの同期点の結果と一致しなかった場合にリターンします。 このステータスコードが返る原因になったUAP,リソースマネジャ,およびグローバルトランザクションの同期点の結果は,メッセージログファイルを参照してください。 このステータスコードが返ったあと,このプロセスはトランザクション下にはありません。プロセスはグローバルトランザクションの範囲の外です。 |
00904 |
グローバルトランザクションのトランザクションブランチがヒューリスティックに完了しました。しかし,障害のため,ヒューリスティックに完了したトランザクションブランチの同期点の結果が判明しません。 このステータスコードが返る原因になったUAP,リソースマネジャ,およびグローバルトランザクションの同期点の結果は,メッセージログファイルを参照してください。 このステータスコードが返ったあと,このプロセスはトランザクション下にはありません。プロセスはグローバルトランザクションの範囲の外です。 |
00905 |
CBLDCTRN('U-ROLL ')を,正しくないコンテクスト(例えば,すでにトランザクション中にいない)から呼び出しています。トランザクションモードに対する影響はありません。 |
00908 |
要求コード(データ名A)が間違っています。 |
指定例
01 MISC. 02 CMD-CODE PIC X(8). 02 STATUS-CODE PIC X(5). : : MOVE 'U-ROLL ' TO CMD-CODE OF MISC. CALL 'CBLDCTRN' USING MISC. IF STATUS-CODE OF MISC NOT EQUAL TO '00000' THEN MOVE 'CANNOT ROLLBACK TRANSACTION' TO ERRMSG OF OUT-ERROR-REC WRITE OUT-ERROR-REC END IF.