例題
[C3559.cob] 000001 @OPTIONS ARITHMETIC(31,INF) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3559. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 ED01 PIC S9(16). 000007 01 FLOAT1 COMP-2. 000008 PROCEDURE DIVISION. 000009 COMPUTE FLOAT1 = ED01 / 2.
C3559.cob 9: JMN3559I-I 算術式の中間結果の属性が、18桁互換モードとは異なります．浮動小数点属性が適用されます．
詳細な説明
本メッセージは、翻訳オプションARITHMETIC(31,INF)を指定したときにのみ出力します．
中間結果の属性として浮動小数点を適用する規則は、演算モードにより異なります．本メッセージは、18桁互換演算モードと中間結果の属性が異なる算術式に対して出力します．
