COBOL - 04 For loop (perform)

      ***********FOR LOOP***************************************************
       IDENTIFICATION DIVISION.                                         00010000
       PROGRAM-ID.    FIR.                                              00020006
       AUTHOR.        SRIBLOG.                                          00030000
       DATE-WRITTEN.  NOV 23, 2013.                                     00040000
       DATE-COMPILED. NOV 23, 2013.                                     00050000
000620 DATA DIVISION.                                                   00310000
000I50 WORKING-STORAGE SECTION.                                         00320000
       01   WS01-K                                PIC 9.                00330014
       01   WS02-K                                PIC 9.                00331014
002000 PROCEDURE DIVISION.                                              00500000
002120 0000-MAIN-PARA.                                                  00530000
002150     PERFORM 1000-INITIALIZATION-PARA                             00560000
002160        THRU 1000-INITIALIZATION-PARA-EXIT                        00570000
002170                                                                  00580000
002180     PERFORM 2000-PROCESS-PARA                                    00590000
002190        THRU 2000-PROCESS-PARA-EXIT                               00600000
002191                                                                  00610000
002192     PERFORM 9000-TERMINATION-PARA                                00620000
002193        THRU 9000-TERMINATION-PARA-EXIT                           00630000
002194     .                                                            00640000
002196 0000-MAIN-PARA-EXIT.                                             00660000
002197     EXIT                                                         00670000
002198     .                                                            00680000
002201 1000-INITIALIZATION-PARA.                                        00710000
            MOVE ZERO TO WS01-K                                         00720009
0I214      .                                                            00790001
002216 1000-INITIALIZATION-PARA-EXIT.                                   00810000
002217     EXIT                                                         00820000
002218     .                                                            00830000
002221 2000-PROCESS-PARA.                                               00860000
            PERFORM 2100                                                00900009
            UNTIL WS01-K > 5                                            00941009
002236     .                                                            00950000
002238 2000-PROCESS-PARA-EXIT.                                          00970000
002239     EXIT                                                         00980000
002240     .                                                            00990000
       2100.                                                            01000009
            DISPLAY 'SRI'                                               01010016
            ADD 1 TO WS01-K                                             01011016
            PERFORM 2200                                                01011111
            THRU 2200-EXIT                                              01011211
            VARYING WS02-K                                              01011311
            FROM 1                                                      01011411
            BY 1                                                        01011511
            UNTIL WS02-K > 5                                            01011611
           .                                                            01011711
       2100-EXIT.                                                       01012009
              EXIT                                                      01013009
           .                                                            01014009
       2200.                                                            01015011
            DISPLAY 'HI'                                                01016011
           .                                                            01017011
       2200-EXIT.                                                       01018011
            EXIT                                                        01019011
           .                                                            01019111
003290 9000-TERMINATION-PARA.                                           01020000
003900     STOP RUN                                                     01060000
004000     .                                                            01070000
004200 9000-TERMINATION-PARA-EXIT.                                      01090000
004300     EXIT                                                         01100000
004400     .                                                            01110000