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

2.4.421 JMN2696I-S

検査機構付きでないうちPERFORM文にはTEST指定付きのEXIT PERFORM文は指定できません. TEST指定は,無効になります.

例題

[C2696.cob]
000001 IDENTIFICATION      DIVISION.
000002 PROGRAM-ID.         C2696.
000003 ENVIRONMENT         DIVISION.
000004 DATA                DIVISION.
000005 WORKING-STORAGE    SECTION.
000006 01  A01.
000007     02 A02          PIC 9(10).
000008     02 A03          PIC 9(10).
000009     02 A04          PIC 9(10).
000010 PROCEDURE           DIVISION.
000011     PERFORM WITH NO LIMIT
000012        MOVE A03 TO A04
000013        EXIT TO TEST OF PERFORM
000014     END-PERFORM.
000015 END PROGRAM         C2696.

C2696.cob 13: JMN2696I-S 検査機構付きでないうちPERFORM文にはTEST指定付きのEXIT PERFORM文は指定できません.TEST指定は,無効になります.

詳細な説明

TEST指定付きのEXIT PERFORM文は,終了条件のある(NO LIMIT指定でない)うちPERFORM文の中にだけ書くことができます.TEST指定付きのEXIT PERFORM文を実行すると,対応するうちPERFORM文の検査機構に制御が移ります.

検査機構とは,以下の処理です.

  • TIMESの前に指定した繰り返し回数を検査する処理

  • UNTILの後に指定した条件を検査する処理