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

2.4.34 JMN3048I-S

EVALUATE文中のTHROUGH指定でつながる二つの作用対象は，ブールまたはオブジェクト一意名であってはなりません．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3048.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01  A        PIC 1(2).
      000007 01  B        PIC 1(2).
      000008 01  X        PIC 1(2).
      000009 PROCEDURE  DIVISION.
      000010     EVALUATE X
      000011     WHEN A THROUGH B
      000012       MOVE B"01" TO A.
      000013     STOP RUN.
    

C3048.cob (11) : JMN3048I-S EVALUATE文中のTHROUGH指定でつながる二つの作用対象は，ブールまたはオブジェクト一意名であってはなりません．