COBOL PERFORM TIMES

 

PERFORM TIMES
 
The following COBOL program depicts the use of 
PERFORM TIMES
 
 
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PGM002.
       AUTHOR. MAINFRAMEWIZARD.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-SUB   PIC 9  VALUE ZEROS.
       PROCEDURE DIVISION.
       10000-MAIN-PARA.
             MOVE 5 TO WS-SUB.
             PERFORM 20000-FIRST-PARA 5 TIMES
             DISPLAY 'PARA NAME IS  10000-FIRST-PARA'
             STOP RUN.
       20000-FIRST-PARA.
             DISPLAY 'VALUE OF WS-SUB IS = ' WS-SUB.
             ADD +1 TO WS-SUB.
 
 
 
The ouput of the above sample program is as below.
 
 
 
VALUE OF WS-SUB IS = 5                                                                                                   
VALUE OF WS-SUB IS = 6                                                                                                   
VALUE OF WS-SUB IS = 7                                                                                                   
VALUE OF WS-SUB IS = 8                                                                                                   
VALUE OF WS-SUB IS = 9                                                                                                   
PARA NAME IS  10000-FIRST-PARA                                                                                           
 
 
Note:- Instead of number before TIMES you can use a variable which will hold the 
number