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