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

2.3.365 JMN2596I-S

EVALUATE文では，WHEN OTHER指定の前にWHEN指定を記述しなければなりません．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2596.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01 WNUM        PIC S9(4) BINARY.
      000007 PROCEDURE      DIVISION.
      000008     EVALUATE WNUM
      000009     WHEN OTHER
      000010       DISPLAY "NG"
      000011     WHEN 3
      000012       DISPLAY "OK"
      000013     END-EVALUATE
      000014 END PROGRAM    P2596.
    

P2596.cob (9) : JMN2596I-S EVALUATE文では，WHEN OTHER指定の前にWHEN指定を記述しなければなりません．

詳細な説明

WHEN OTHER指定に書いた文は，先行するいずれのWHEN指定も選択されなかった場合に実行されます．