The following simple COBOL program depicts the use of 01 WS-SUB PIC 9(3) VALUE ZEROS. PERFORM VARYING WS-SUB FROM 1 BY 1 UNTIL WS-SUB=5 DISPLAY ‘INLINE PERFORM DEPICTED BY MAINFRAMEWIZARD.COM’ INLINE PERFORM DEPICTED BY MAINFRAMEWIZARD.COM INLINE PERFORM DEPICTED BY MAINFRAMEWIZARD.COM INLINE PERFORM DEPICTED BY MAINFRAMEWIZARD.COM INLINE PERFORM DEPICTED BY MAINFRAMEWIZARD.COM