The following simple COBOL program depicts the use of
01 WS-SUB PIC 9(3) VALUE ZEROS. DISPLAY ‘CALLING PARA USING PERFORM BY MAINFRAMEWIZARD.COM’ DISPLAY ‘PARA NAME IS 10000-FIRST-PARA’ DISPLAY ‘PARA NAME IS 20000-FIRST-PARA’ PERFORM 30000-THIRD-PARA. DISPLAY ‘PARA NAME IS 25000-SECOND-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