CSTOP、CSP

COBSQL で、アプリケーションが異常終了した場合にロールバックを実行する実行停止モジュールをロードします。

構文:

[NO]{CSTOP|CSP} 

プロパティ:

デフォルト: NOCSTOP

説明:

この指令は、UNIX では使用できません。ただし、EXEC SQL ROLLBACK を実行する終了プロシージャをインストールすると、CSTOP 機能をエミュレートできます。ライブラリ ルーチン CBL_EXIT_PROC の呼び出しの例を次に示します。

 working-storage section.
          
 EXEC SQL INCLUDE SQLCA END-EXEC.

 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
 01 DUMMY                    PIC x.
 EXEC SQL END DECLARE SECTION END-EXEC.

 78  func-install        value 0.
 78  func-deinstall      value 1.
 78  Initial-Call        value 9.
 01.
     03  install-flag        pic x comp-x value Initial-Call.
     03  install-params.
         05  install-addrs   procedure-pointer.
         05  install-prrty   pic x comp-x value 64.

 procedure division.
     if install-flag = Initial-Call
        set  install-addrs to entry "myexitpc"
        move func-install  to install-flag
        call "CBL_EXIT_PROC" using install-flag install-params
        end-call
     end-if