【COBOL】変数に代入時に桁溢れが発生した際の振る舞い

Question

COBOLで下記変数が定義されています。

　WK-SUM PIC S9(02)V9(03) COMP-3

これに、数値100を代入した場合、その時点でエラーとなるのでしょうか。
又は桁落ちしてなんらか値が代入されるのでしょうか。

Answer 1

代入。MOVE命令で代入するのか、COMPUTE命令で代入するのか。COMPUTE命令で代入するのでれば、ON SIZE ERROR句を指定するかどうか。どうやって代入するかによるのかと。

Answer 2

COBOLでは基本的に桁あふれ・桁落ちはエラーになりません。

PIC S9(02)V9(03) COMP-3
は整数部2桁と小数点以下3桁ですから、100を送ると 0 になります。
WK-SUM に値を代入した後、その内容をDISPLAY するなどで確認してください。コンパイラにより COMP-3 付きの項目を直接DISPLAYできない場合は別にCOMP-3なし項目を用意して、そこに代入してDISPLAY。

コンパイラによっては ON SIZE ERROR xxxxxx で例外を指定できるものもあります。
マニュアルを確認してください。