NetCOBOL for .NET V7.0 メッセージ集

2.4.184 JMN3338I-W

数字項目および数字編集項目に転記する文字定数に，小数点が含まれています．
文字定数の小数点以下を無視して転記します．

例

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID. C3338.
      000003 DATA DIVISION.
      000004 WORKING-STORAGE SECTION.
      000005    01 A PIC 99V9.
      000006 PROCEDURE DIVISION.
      000007     MOVE "12.3" TO A.
      000008     MOVE  12.3  TO A.
      000009 END PROGRAM C3338.
    

C3338.cob (7) : JMN3338I-W 数字項目および数字編集項目に転記する文字定数に，小数点が含まれています．文字定数の小数点以下を無視して転記します．

詳細な説明

文字定数を数字定数に修正してください．