RAMESH KRISHNA REDDY

IDENTIFICATION DIVISION.                    
PROGRAM-ID. TESTCOBL.                       
AUTHOR. TESTTEST.                           
DATE-WRITTEN.  19-NOV-2010.                 
DATE-COMPILED.                              
                                            
ENVIRONMENT DIVISION.                       
INPUT-OUTPUT SECTION.                       
                                            
FILE-CONTROL.                               
     SELECT WS-INFILE  ASSIGN TO INPIWS01   
     FILE STATUS IS WS-INFILE-SW.           
                                            
DATA DIVISION.                              
  FILE SECTION.                             
  FD WS-INFILE.                             
  01 INP-EMP-REC.                           
     05 INP-EMPID         PIC X(08).        
      05 INP-EMPID         PIC X(08).               
      05 INP-EMP-NAME      PIC X(15).               
      05 INP-EMP-LOB       PIC X(10).               
      05 FILLER            PIC X(47).               
                                                    
 WORKING-STORAGE SECTION.                           
   01 WS-INFILE-SW   PIC  X(02)  VALUE SPACES.      
      88  WS-INFILE-SUCESS       VALUE '00'.        
      88  WS-INFILE-EOF          VALUE '10'.        
   01 WS-INP-EMP-REC.                               
      05 WS-INP-EMPID         PIC X(08).            
      05 WS-INP-EMP-NAME      PIC X(15).            
      05 WS-INP-EMP-LOB       PIC X(10).            
      05 FILLER               PIC X(47).            
   01 WS-EOF-SW               PIC  X(01)  VALUE 'N'.
      88  WS-EOF-NO           VALUE 'N'.            
      88  WS-EOF-YES          VALUE 'Y'.            
                                                    
PROCEDURE DIVISION.                                       
A1000-MAIN-PARA.                                          
    PERFORM A2000-OPEN-PARA  THRU A200-EXIT.             
     PERFORM A3000-INPUT-PARA THRU A300-EXIT.             
     PERFORM A4000-INSERT-PARA THRU A400-EXIT.            
     PERFORM A5000-CLOSE-PARA THRU A500-EXIT.             
     STOP RUN.                                            
A100-EXIT.                                                
     EXIT.                                                
                                                          
A2000-OPEN-PARA.                                          
     INITIALIZE WS-INFILE-SW   WS-INP-EMP-REC  WS-EOF-SW. 
     OPEN OUTPUT  WS-INFILE                               
     IF WS-INFILE-SUCESS                                  
        DISPLAY "FILE OPEN SUCCESSFUL"                    
     ELSE                                                 
        DISPLAY "FILE OPENING ERROR"                      
        GO TO  A100-EXIT                                  
     END-IF.                                                
                                                            
A200-EXIT.                                                  
     EXIT.                                                  
                                                            
A3000-INPUT-PARA.                                           
     ACCEPT WS-INP-EMPID.                                   
     ACCEPT WS-INP-EMP-NAME.                                
     ACCEPT WS-INP-EMP-LOB.                                 
     DISPLAY WS-INP-EMPID  WS-INP-EMP-NAME   WS-INP-EMP-LOB 
      .                                                     
A300-EXIT.                                                  
     EXIT.                                                  
                                                            
A4000-INSERT-PARA.                                          
      WRITE INP-EMP-REC FROM WS-INP-EMP-REC.                
A400-EXIT.                                                  
     EXIT.                                                  
                       
A5000-CLOSE-PARA.      
      CLOSE WS-INFILE. 
A500-EXIT.             
     EXIT.