COBOL PERFORM PARA

COBOL PERFORM PARA

The following simple COBOL program depicts the use of

PERFORM para

   IDENTIFICATION DIVISION.

   PROGRAM-ID. PGM011.

   AUTHOR. MAINFRAMEWIZARD.

   DATA DIVISION.

   WORKING-STORAGE SECTION.

   01 WS-SUB PIC 9(3) VALUE ZEROS.

   PROCEDURE DIVISION.

   10000-MAIN-PARA.

   PERFORM 20000-FIRST-PARA

   DISPLAY 'CALLING PARA USING PERFORM BY MAINFRAMEWIZARD.COM'

   DISPLAY 'PARA NAME IS 10000-FIRST-PARA'

   STOP RUN.

   20000-FIRST-PARA.

   DISPLAY 'PARA NAME IS 20000-FIRST-PARA'

   PERFORM 30000-THIRD-PARA.

   25000-SECOND-PARA.

   DISPLAY 'PARA NAME IS 25000-SECOND-PARA'.

   30000-THIRD-PARA.

   DISPLAY 'PARA NAME IS 30000-THIRD-PARA'

   PERFORM 25000-SECOND-PARA.
; ; ; ;

The Output of the above program is as below:-

PARA NAME IS 20000-FIRST-PARA

PARA NAME IS 30000-THIRD-PARA

PARA NAME IS 25000-SECOND-PARA

CALLING PARA USING PERFORM BY MAINFRAMEWIZARD.COM

PARA NAME IS 10000-FIRST-PARA