PERFORM TIMES

• This format is used when you want to execute set of instruction specific number of times
• Syntax:-
  PERFORM [para-1 [{THRU/THROUGH} para-n]] N TIMES       [statement-block  END-PERFORM]
  Where,
  • para-1, para-n are paragraph names which we want to call
  • N is the numeric literal or numeric data item to indicate how many times we want to execute the said paragraphs
  • [statement-block END-PERFORM] is used for Inline PERFORM.
• This format is used when you want to execute set of instruction N number of times
• Example:-
  In PROCUEDURE DIVISION,
  PARA-0. DISPLAY 'IN PARA-0' PERFORM PARA-1 THRU PARA-1-EXIT 3 TIMES. DISPLAY 'IN PARA-0 AGAIN' STOP RUN. PARA-1. DISPLAY 'IN PARA-1'. PARA-1-EXIT.
  SYSOUT display (output):-
  IN PARA-0 IN PARA-1 IN PARA-1 IN PARA-1 IN PARA-0 AGAIN