例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2615.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WLOOP1 PIC S9(4) BINARY.
000007 01 WLOOP2 PIC S9(4) BINARY.
000008 PROCEDURE DIVISION.
000009 PERFORM TEST BEFORE
000010 VARYING WLOOP1 FROM 1 BY 1 UNTIL WLOOP1 = 20
000011 AFTER WLOOP2 FROM 5 BY 1 UNTIL WLOOP2 = 25
000012 DISPLAY "LOOP TEST"
000013 END-PERFORM
000014 END PROGRAM P2615.
P2615.cob (11) : JMN2615I-S うちPERFORM文にAFTER指定は記述できません．
詳細な説明
AFTER指定は，2つ以上のデータ項目や指標名の値を繰り返し回数に応じて変化させたいときに指定します．うちPERFORM文（PERFORM文の範囲内に記述した文の組を実行する）では，繰り返し回数に応じて変化させられるデータ項目もしくは指標名は，1つだけです．