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-PARADISPLAY '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