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

2.4.324 JMN2538I-S

選択対象の数が選択主体の数より少ない.両者は等しくなければなりません. ANYを補って,処理を続行します.

例題

[P2538.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2538.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA1        PIC X(1).
000007 01 WDA2        PIC X(1).
000008 PROCEDURE      DIVISION.
000009     EVALUATE TRUE ALSO TRUE
000010     WHEN WDA1 = SPACE
000011       DISPLAY "OK"
000012     WHEN OTHER
000013       DISPLAY "NG"
000014     END-EVALUATE
000015 END PROGRAM    P2538.

P2538.cob 10: JMN2538I-S 選択対象の数が選択主体の数より少ない.両者は等しくなければなりません.ANYを補って,処理を続行します.

詳細な説明

EVALUATE文の最初のWHEN指定より前に書く作用対象(TRUEおよびFALSEも含む)を「選択主体」,EVALUATE文のWHEN指定に書く作用対象(TRUE,FALSEおよびANYも含む)を「選択対象」といいます.

1つのWHEN指定の中には,選択主体の数と同じ数の選択対象を書かなければなりません.