例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2506.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE DIVISION.
000007 PERFORM WITH NO LIMIT
000008 END-PERFORM
000009 END PROGRAM P2506.
P2506.cob (8) : JMN2506I-W 条件文またはうちPERFORM文中には，文を指定しなければなりません．指定されたとおりに，受け入れます．