ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

2.4.32 JMN3043I-S

EVALUATE文のTHROUGH指定でつながる二つの作用対象は,同じ字類でなければなりません.

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

C3043.cob (11) : JMN3043I-S EVALUATE文のTHROUGH指定でつながる二つの作用対象は,同じ字類でなければなりません.