NetCOBOL V11.1 メッセージ集

2.4.422 JMN2697I-S

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

例題

[P2697.cob]
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文の出口を指定します．