The following COBOL program depicts the use of 01 WS-SUB PIC 9 VALUE ZEROS. PERFORM 20000-FIRST-PARA VARYING WS-SUB FROM 1 BY 1 UNTIL DISPLAY ‘PARA NAME IS 10000-FIRST-PARA’ DISPLAY ‘VALUE OF WS-SUB IS = ‘ WS-SUB. The ouput of the above program will be PARA NAME IS 10000-FIRST-PARA