[NO]{CSTOP|CSP}
この指令は、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
説明:
この指令は、UNIX では使用できません。ただし、EXEC SQL ROLLBACK を実行する終了プロシージャをインストールすると、CSTOP 機能をエミュレートできます。ライブラリ ルーチン CBL_EXIT_PROC の呼び出しの例を次に示します。