2.3.360 JMN2588I-S

予約語@1@は，ADD/DIVIDE/MULTIPLY/SUBTRACT文のGIVING指定の前には記述できません．

引数の説明

@1@:

ROUNDED．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2588.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01 WNUM1       PIC S9(4) BINARY.
      000007 01 WNUM2       PIC S9(4) BINARY.
      000008 01 WNUM3       PIC S9(9) BINARY.
      000009 PROCEDURE      DIVISION.
      000010     ADD WNUM1 TO WNUM2 ROUNDED
      000011               GIVING  WNUM3
      000012 END PROGRAM    P2588.

P2588.cob (10) : JMN2588I-S 予約語ROUNDEDは，ADD/DIVIDE/MULTIPLY/SUBTRACT文のGIVING指定の前には記述できません．

詳細な説明

ADD/DIVIDE/MULTIPLY/SUBTRACT文にGIVING指定を書いた場合は，GIVING指定で指定した項目にだけROUNDED指定を指定できます．