例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2522.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WLOOP0 PIC S9(9) COMP-5.
000007 01 WLOOP1 PIC S9(9) COMP-5.
000008 01 WLOOP2 PIC S9(9) COMP-5.
000009 01 WLOOP3 PIC S9(9) COMP-5.
000010 01 WLOOP4 PIC S9(9) COMP-5.
000011 01 WLOOP5 PIC S9(9) COMP-5.
000012 01 WLOOP6 PIC S9(9) COMP-5.
000013 01 WLOOP7 PIC S9(9) COMP-5.
000014 PROCEDURE DIVISION.
000015 PERFORM P1
000016 VARYING WLOOP0 FROM 1 BY 1 UNTIL WLOOP1 > 10000000
000017 AFTER WLOOP1 FROM 1 BY 1 UNTIL WLOOP2 > 1000000
000018 AFTER WLOOP2 FROM 1 BY 1 UNTIL WLOOP3 > 100000
000019 AFTER WLOOP3 FROM 1 BY 1 UNTIL WLOOP4 > 10000
000020 AFTER WLOOP4 FROM 1 BY 1 UNTIL WLOOP5 > 1000
000021 AFTER WLOOP5 FROM 1 BY 1 UNTIL WLOOP6 > 100
000022 AFTER WLOOP6 FROM 1 BY 1 UNTIL WLOOP6 > 10
000023 AFTER WLOOP7 FROM 1 BY 1 UNTIL WLOOP7 > 1.
000024 P1.
000025 DISPLAY "P1".
000026 END PROGRAM P2522.
P2522.cob (15) : JMN2522I-W PERFORM文のVARYING指定で，AFTER指定は6個以下でなければなりません．指定されたとおりに受け入れます．