NetCOBOL for .NET V8.0 メッセージ集

2.3.419 JMN2697I-S

EXIT PERFORM文はうちPERFORM文の内側に指定しなければなりません．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2697.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01 WNUM        PIC X(2).
      000007 PROCEDURE      DIVISION.
      000008     IF WNUM = "13" THEN
      000009       DISPLAY "OK"
      000010     ELSE
      000011       EXIT PERFORM
      000012     END-IF
      000013 END PROGRAM    P2697.
    

P2697.cob (11) : JMN2697I-S EXIT PERFORM文はうちPERFORM文の内側に指定しなければなりません．

詳細な説明

EXIT PERFORM文は，うちPERFORM文の出口を指定します．