COBOL program to display the input data by using file

//MYJOB JOB 1,'MCA',MSGLEVEL=(1,1),REGION=0M,    
//  NOTIFY=KC03H0E,MSGCLASS=A,CLASS=A              
//STEP1 EXEC IGYWCLG                                
       IDENTIFICATION DIVISION.                    
       PROGRAM-ID. LAB1.                            
       ENVIRONMENT DIVISION.                        
       CONFIGURATION SECTION.                      
       INPUT-OUTPUT SECTION.                        
       FILE-CONTROL.                                
           SELECT INPUT-FILE ASSIGN TO DA-S-INPUT.  
           SELECT PRNT-FILE ASSIGN TO UR-S-PRNT.    
           EJECT                                    
       DATA DIVISION.                              
       FILE SECTION.                                
        FD INPUT-FILE                              
           LABEL RECORDS ARE STANDARD.
       01 INPUT-REC PIC X(80).        
        FD PRNT-FILE                  
           LABEL RECORDS ARE OMITTED.  
       01 PRNT-REC PIC X(125).        
       WORKING-STORAGE SECTION.        
       01 INPUT-DATA.                  
         03 I-NAME PIC X(20).          
       01 PRNT-DATA1.                  
         03 O-NAME PIC X(20).          
       01 MISC.                        
         03 EOF-I PIC 9 VALUE 0.        
       PROCEDURE DIVISION.              
       PARA1.                          
           OPEN INPUT INPUT-FILE        
           OUTPUT PRNT-FILE.            
           PERFORM READ-INPUT.          
           PERFORM LOOP1                
           UNTIL EOF-I = 1.            
           CLOSE INPUT-FILE            
           PRNT-FILE.                  
           STOP RUN.                    
       LOOP1.                          
           PERFORM PRINT-NAMES.        
           PERFORM READ-INPUT.          
       PRINT-NAMES.                    
           MOVE I-NAME TO O-NAME.      
           WRITE PRNT-REC FROM PRNT-DATA1
           AFTER ADVANCING 1 LINE.      
       READ-INPUT.                      
           READ INPUT-FILE INTO INPUT-DATA
           AT END MOVE 1 TO EOF-I.      
//GO.SYSOUT DD SYSOUT=*                  
//GO.SYSPRINT DD SYSOUT=*                
//GO.INPUT DD *                          
NAME                                    
......                                  
CEMA                                    
ANU                                      
//GO.PRNT DD SYSOUT=*