例題
[P2521.cob] 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指定を書きます．
