The following simple COBOL program depicts the use of 01 WS-SUB PIC 9(3) VALUE ZEROS. PERFORM 20000-FIRST-PARA THRU 30000-THIRD-PARA DISPLAY ‘DEPICTING PERFORM THRU BY MAINFRAMEWIZARD.COM’ DISPLAY ‘PARA NAME IS 10000-FIRST-PARA’ DISPLAY ‘PARA NAME IS 20000-FIRST-PARA’. DISPLAY ‘PARA NAME IS 25000-SECOND-PARA’. DISPLAY ‘PARA NAME IS 30000-THIRD-PARA’ Output of the above program is as below PARA NAME IS 20000-FIRST-PARA PARA NAME IS 25000-SECOND-PARA PARA NAME IS 30000-THIRD-PARA DEPICTING PERFORM THRU BY MAINFRAMEWIZARD.COM PARA NAME IS 10000-FIRST-PARA