PERFORM INLINE & OUTLINE in COBOL

In-line Perform:

Statements inside the PERFORM will be executed till END-PERFORM is reached.

        IDENTIFICATION DIVISION.
        PROGRAM-ID. INLPERM.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 A PIC X(10).
        PROCEDURE DIVISION.
           PERFORM
           ACCEPT A
           DISPLAY A
           END-PERFORM.
           STOP RUN. 

In-line PERFORM with TIMES parameter

        IDENTIFICATION DIVISION.                              
        PROGRAM-ID. INLPERM2.                                  
        DATA DIVISION.                                                
        WORKING-STORAGE SECTION.                                       
        01 A PIC X(10).                                                
        PROCEDURE DIVISION.                                            
             ACCEPT A                                                   
             PERFORM 5 TIMES                                          
             ACCEPT A                                                  
             DISPLAY A                                                
             END-PERFORM.                                             
             STOP RUN.  

In-line PERFORM with UNTIL parameter

  
        IDENTIFICATION DIVISION.                                       
        PROGRAM-ID. INLPERM3.                                           
        DATA DIVISION.                                                 
        WORKING-STORAGE SECTION.                                        
        01 A PIC X(10).                                                
        01 I PIC 9(1) VALUE 1.                                        
        01 N PIC 9(2).                                               
        PROCEDURE DIVISION.                                           
           ACCEPT N.                                                                                                              
           PERFORM UNTIL I>N                                           
           ACCEPT A                                                    
           DISPLAY A                                            
           ADD +1 TO I                                          
           END-PERFORM.                                              

           STOP RUN.  

In-line PERFORM with PERFORM VARYING parameter

        IDENTIFICATION DIVISION.                                       
        PROGRAM-ID. INLPERM4.                                           
        DATA DIVISION.                                                 
        WORKING-STORAGE SECTION.                                        
        01 A PIC X(10).                                                
        01 I PIC 9(1) VALUE 1.                                         
        PROCEDURE DIVISION.                                            
            PERFORM VARYING I FROM 1 BY 1 UNTIL I>5                     
            ACCEPT A                                                   
            DISPLAY A                                                  
            END-PERFORM.                                                

            STOP RUN.   


Out-line Perform:

A statement is executed in one paragraph and then the control is transferred to other paragraph or section.



       IDENTIFICATION DIVISION.                                       
       PROGRAM-ID. OUTLINE1.                                           
       DATA DIVISION.                                                  
       WORKING-STORAGE SECTION.                                        
       01 A PIC X(10).                                                 
       PROCEDURE DIVISION.                                            
           PERFORM PARA-1.                                             
           PERFORM PARA-1.                                            
           STOP RUN.                                                   
       PARA-1.                                                        
           ACCEPT A.                                                   

           DISPLAY A.  

Out-line PERFORM with TIMES parameter


       IDENTIFICATION DIVISION.                                        
       PROGRAM-ID. OUTLINE2.                                          
       DATA DIVISION.                                                  
       WORKING-STORAGE SECTION.                                       
       01 A PIC X(10).                                                 
       PROCEDURE DIVISION.                                             
           PERFORM PARA-1 5 TIMES.                                     
           PERFORM PARA-1.                                             
           STOP RUN.                                                   
       PARA-1.                                                         
           ACCEPT A.                                                   

           DISPLAY A.  

Out-line PERFORM with UNTIL parameter

  
       IDENTIFICATION DIVISION.                                        
       PROGRAM-ID. OUTFILE3.                                           
       DATA DIVISION.                                                  
       WORKING-STORAGE SECTION.                                        
       01 A PIC X(10).                                                 
       01 I PIC 9(1) VALUE 1.                                          
       PROCEDURE DIVISION.                                            
           PERFORM PARA-1 UNTIL I>5.                                  
           PERFORM PARA-1.                                             
           STOP RUN.                                                  
           PARA-1.                                                        
           ACCEPT A.                                                   
           DISPLAY A.                                                 


           ADD +1 TO I.   

Out-line PERFORM with PERFORM VARYING parameter

       IDENTIFICATION DIVISION.                                        
       PROGRAM-ID. OUTLINE4.                                           
       DATA DIVISION.                                                  
       WORKING-STORAGE SECTION.                                        
       01 A PIC X(10).                                                 
       01 I PIC 9(1) VALUE 1.                                        
       PROCEDURE DIVISION.                                         
           PERFORM PARA-1 VARYING I FROM 1 BY 1 UNTIL I>5.           
           STOP RUN.                                             
       PARA-1.                                                       
           ACCEPT A.                                                 

           DISPLAY A.