Let's understand Mainframe
Home Tutorials Interview Q&A Quiz Mainframe Memes Contact us About us

MODULE 7: COBOL Control statements


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






© copyright mainframebug.com
Privacy Policy