CBLEETRN('RMCLSMK ')
- 〈このページの構成〉
形式
PROCEDURE DIVISIONの指定
CALL 'CBLEETRN' USING 一意名1
DATA DIVISIONの指定
01 一意名1. 02 データ名A PIC X(8) VALUE 'RMCLSMK '. 02 データ名B PIC X(5). 02 FILLER PIC X(3). 02 データ名C PIC S9(9) COMP VALUE ZERO.
機能
CBLEETRN('RMCLSMK ')が正常に終了すると,CBLEETRN('RMCLSMK ')を呼び出したスレッドのトランザクションの同期点処理が完了した時点でスレッドにリンクされているすべてのリソースマネジャに対してコネクションの解放要求(xa_close関数)が指示されます。同期点処理の完了時にコネクション確立済みのリソースマネジャが存在しない場合は,CBLEETRN('RMCLSMK ')を呼び出してもコネクションの解放要求(xa_close関数)を指示しません。
リソースマネジャとのコネクションの再確立(xa_open関数)は,CBLEETRN('RMCLSMK ')を呼び出したスレッドでの次回のトランザクション開始時にTP1/EEが行います。
UAPで値を設定するデータ領域
●データ名A
リソースマネジャとのコネクションの解放指示を示す要求コードを「VALUE 'RMCLSMK△'」と設定します。
●データ名C
0を設定します。
TP1/EEから値が返されるデータ領域
●データ名B
ステータスコードが,5けたの数字で返されます。
ステータスコード
ステータスコード |
意味 |
---|---|
00000 |
正常に終了しました。 |
00001 |
TP1/EEの環境下にありません。 |
00004 |
UOCから発行しているため,この機能は使用できません。 |
00005 |
オフラインバッチプロセスから発行しているため,この機能は使用できません。 |
00901 |
データ名に設定した値が間違っています。要求コード(データ名A)が間違っている場合も含みます。 |
指定例
01 MISC. 02 CMD-CODE PIC X(8). 02 STATUS-CODE PIC X(5). : : MOVE 'RMCLSMK ' TO CMD-CODE OF MISC. CALL 'CBLEETRN' USING MISC. IF STATUS-CODE OF MISC NOT EQUAL TO '00000' THEN MOVE 'CANNOT CLOSE CONNECTION' TO ERRMSG OF OUT-ERROR-REC WRITE OUT-ERROR-REC END IF.