例題
[P2522.cob] 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個以下でなければなりません．指定されたとおりに受け入れます．
