COBOL INLINE PERFORM

INLINE PERFORM

The following simple COBOL program depicts the use of

Inline PERFORM

PROGRAM-ID. PGM010.

AUTHOR. MAINFRAMEWIZARD.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-SUB PIC 9(3) VALUE ZEROS.

PROCEDURE DIVISION.

10000-MAIN-PARA.

PERFORM VARYING WS-SUB FROM 1 BY 1 UNTIL WS-SUB=5

DISPLAY 'INLINE PERFORM DEPICTED BY MAINFRAMEWIZARD.COM'

END-PERFORM.

STOP RUN.

INLINE PERFORM DEPICTED BY MAINFRAMEWIZARD.COM