例題
[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の後に指定した条件を検査する処理