CSTOP指令

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

構文:

[NO]CSTOP 

プロパティ:

省略値:	NOCSTOP
同義語:	CSP

説明:

この指令は UNIX では使用できません。 しかし、これと同様の機能は終了手続きの中で EXEC SQL ROLLBACK を実行することによって実現することができます。 以下に 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