例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2640.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE DIVISION.
000007 PERFORM WITH NO LIMIT
000008 DISPLAY "LOOP TEST".
000009 END PROGRAM P2640.
P2640.cob (8) : JMN2640I-S うちPERFORM文にはEND-PERFORMが指定されなければなりません.END-PERFORMがあるものとみなします.
詳細な説明
うちPERFORM文によって繰り返す文の組を明確にするために,明示範囲符のEND-PERFORMを記述して文の範囲を終了させてください.