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

2.3.323 JMN2539I-S

選択対象の数が選択主体の数より多い.両者は等しくなければなりません.
余分な選択対象は,無効になります.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2539.
      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
      000010     WHEN WDA1 = SPACE ALSO
      000011          WDA2 = SPACE
      000012       DISPLAY "OK"
      000013     WHEN OTHER
      000014       DISPLAY "NG"
      000015     END-EVALUATE
      000016 END PROGRAM    P2539.
    

P2539.cob (10) : JMN2539I-S 選択対象の数が選択主体の数より多い.両者は等しくなければなりません.余分な選択対象は,無効になります.

詳細な説明

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

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