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

2.3.387 JMN2639I-S

EVALUATE文の選択対象でTHROUGH(THRU)の後に誤った語'@1@'が指定されています.
THROUGH(THRU)指定は,無効になります.

引数の説明

@1@:

エラーの原因となった語.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2639.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01 WNUM        PIC X.
      000007 PROCEDURE      DIVISION.
      000008     EVALUATE WNUM
      000009     WHEN "A" THRU "Z"
      000010       DISPLAY "ALPHABETIC"
      000011     WHEN "0" THRU
      000012       DISPLAY "NUMERIC"
      000013     END-EVALUATE
      000014 END PROGRAM    P2639.
    

P2639.cob (11) : JMN2639I-S EVALUATE文の選択対象でTHROUGH(THRU)の後に誤った語'DISPLAY'が指定されています.THROUGH(THRU)指定は,無効になります.

詳細な説明

WHEN指定に書いたTHROUGH指定(THRUとTHROUGHは同義語です)は2つの作用対象をつなぎ,1つの選択対象として評価することを示します.