COBOL Program to implement PERFORM THRU verb

COBOL Program to implement PERFORM THRU verb

PROGRAM:  

       IDENTIFICATION DIVISION.

       PROGRAM-ID PTV.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       PROCEDURE DIVISION.

       PARA1.

           DISPLAY ( 1 1 ) ERASE.

           DISPLAY "ABC".

           PERFORM PARA2 THRU PARA4

           DISPLAY "XYZ".

           STOP RUN.

       PARA2.

           DISPLAY "DEF".

       PARA3.

           DISPLAY "GHI".

           DISPLAY "GANDHI".

       PARA4.

           DISPLAY "BHARATHIAR".