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

2.5.36 JMN3046I-S

EVALUATE文の選択主体に算術式,一意名または定数を指定した場合,選択対象は算術式,一意名,定数またはANYでなければなりません.

例題

[C3046.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3046.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A        PIC 9(2).
000007 PROCEDURE  DIVISION.
000008     EVALUATE A
000009     WHEN 0
000010       MOVE 0 TO A
000011     WHEN TRUE
000012       MOVE 1 TO A
000013     END-EVALUATE.
000014 END PROGRAM  C3046.

C3046.cob 11: JMN3046I-S EVALUATE文の選択主体に算術式,一意名または定数を指定した場合,選択対象は算術式,一意名,定数またはANYでなければなりません.