21.5.3 例外を受け取れないプログラムに例外を伝播させた場合の動作
(1) 例外を受け取れないプログラム
CALL文,INVOKE文,および利用者定義関数によって呼び出されたプログラム(例外を送る側)で例外が発生し,呼び出し元プログラム(例外を受け取る側)へ例外の伝播を実行しようとしても,呼び出し元プログラムが例外を受け取れない場合,例外は伝播しません。
例外を受け取れる呼び出し元プログラム,例外を受け取れない呼び出し元プログラムの条件を次に示します。
条件 |
プログラム種別/指定 |
|||||||
---|---|---|---|---|---|---|---|---|
COBOL 85※1 |
COBOL2002 |
COBOL 以外の言語 |
||||||
-Compati85,NoPropagate指定なし※2 |
-Compati85,NoPropagate指定あり※2 |
|||||||
伝播抑止条件※3 |
左記以外 |
伝播抑止条件※3 |
左記以外 |
|||||
例外を受け取る文 |
オブジェクト指向のINVOKE文 |
− |
× |
○ |
× |
× |
− |
|
利用者定義関数を参照する文 |
− |
× |
○ |
× |
× |
− |
||
CALL文 |
無条件指定なし※4 |
× |
× |
○ |
× |
× |
− |
|
無条件指定あり※4 |
× |
○※5 |
○ |
× |
× |
− |
- 注※1
-
COBOL85でコンパイルしたプログラムが動作可能なシステム
- 注※2
-
例外の伝播を抑止するコンパイラオプションについては,「33.5.12 他システムとの移行の設定」の「(3) -Compati85オプション」を参照してください。
- 注※3
-
次の条件が重なった場合,例外の伝播を抑止します。
-
プログラム中にON指定のあるPROPAGATE指令が書かれていない。
-
プログラム中にTURN指令が一つも書かれていない。
ただし上記の1.〜2.では,入れ子のプログラムや複数の最外側のプログラムが書かれたソースで,該当するプログラムの前にON指定のあるPROPAGATE指令や有効なTURN指令がある場合,それ以降に定義されたすべてのプログラムは,例外の伝播を抑止する対象にはなりません。
-
宣言節中のUSE文にEXCEPTION OBJECT指定が一つもない。
-
- 注※4
-
ON OVERFLOW指定,ON EXCEPTION指定,NOT ON EXCEPTION指定
- 注※5
-
呼び出されたプログラム(例外を送る側)で例外が発生し,呼び出し元プログラム(例外を受け取る側)へ例外を伝播する場合,CALL文の無条件文は実行されません。詳細については,マニュアル「COBOL2002 言語 標準仕様編」 「10.8.4(3) 一般規則」を参照してください。
(2) 呼び出し元プログラムが例外を受け取れない場合の動作
呼び出し元プログラムが例外を受け取れない場合,呼び出し先プログラムで例外が検出されたときの動作が異なります。
例外が検出されたときの動作の詳細については,「21.8.3 例外処理の動作」を参照してください。
例外を受け取れないプログラムへ例外の伝播を実行しようとした場合の例を次に示します。
- <主プログラム:SAMPLE1.CBL>
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE1. : DATA DIVISION. WORKING-STORAGE SECTION. 01 PARAM USAGE COMP-1 VALUE +9.9E+01. : PROCEDURE DIVISION. CALL 'SAMPLE2' USING PARAM. *> 1. END PROGRAM SAMPLE1.
- <副プログラム:SAMPLE2.CBL>
>>PROPAGATE ON IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE2. : DATA DIVISION. WORKING-STORAGE SECTION. 01 ANS USAGE COMP-1. 01 DATA-A PIC X(21) VALUE '100300700800400600900'. 01 DATA-B REDEFINES DATA-A. 02 DATA-C PIC 9(3) OCCURS 7 TIMES INDEXED BY DATA-D DATA-E. LINKAGE SECTION. 01 PARAM USAGE COMP-1. : PROCEDURE DIVISION USING PARAM. SET DATA-D DATA-E TO 0. >>TURN EC-RANGE-SEARCH-INDEX CHECKING ON SEARCH DATA-C VARYING DATA-E *>2. WHEN DATA-C(DATA-E) > 1500 CONTINUE END-SEARCH. >>TURN EC-ARGUMENT-FUNCTION CHECKING ON COMPUTE ANS = FUNCTION ACOS ( PARAM ). *> 3. DISPLAY 'ANSWER =' ANS. END PROGRAM SAMPLE2.
-
プログラム「SAMPLE1」中のCALL文で,プログラム「SAMPLE2」を呼び出します。
-
PROPAGATE指令がONになっていますが,プログラム「SAMPLE2」中のSEARCH文で検出した例外が非致命的な例外のため,例外は伝播されず次の文(COMPUTE文)へ実行が継続されます。
-
COMPUTE文で致命的な例外が検出され,かつ,PROPAGATE指令がONになっていますが,プログラム「SAMPLE1」は例外を受け取れないため,例外は伝播しません。この場合,実行時エラーメッセージ(KCCC0403R-S:「例外を伝播できません。」)を出力し,プログラム「SAMPLE2」が異常終了します。