例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2521.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WLOOP PIC 999.
000007 PROCEDURE DIVISION.
000008 PERFORM TEST
000009 VARYING WLOOP FROM 1
000010 BY 1 UNTIL WLOOP = 10
000011 DISPLAY WLOOP
000012 END-PERFORM
000013 END PROGRAM P2521.
P2521.cob (8) : JMN2521I-S TEST BEFORE指定またはTEST AFTER指定が不完全です．TEST BEFORE指定が記述されたものとみなします．
詳細な説明
BEFOREもAFTERも指定されず，語TESTだけが指定されています．
文の組を実行する前に条件を検査する場合は，TEST BEFORE指定を書くかまたはTEST指定を省略します．文の組を実行した後に条件を検査する場合は，TEST AFTER指定を書きます．