IDENTIFICATION DIVISION.
 PROGRAM-ID.   COBPROG.
* 
 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
      SELECT  INPUT-FILE ASSIGN TO INFILE.
      SELECT  OUTPUT-FILE ASSIGN TO OUTFILE.
*
 DATA DIVISOIN.
 FILE SECTION.

 FD INPUT-FILE 
    01 INPUT-REC             PIC  X(40).

 FD OUTPUT-FILE
    01 OUTPUT-REC            PIC  X(50).
*
 WORKING-STORAGE SECTION.
 01 END-OF-DATA-EF           PIC  X(3)  VALUE SPACES.
    88  END-OF-DATA          PIC  VALUE 'YES'.
*
 PROCEDURE DIVISION.
 MAIN-PARA.

     PERFORM 1000-INITILIZATION-PARA.

     PERFORM 2000-PROCESS-PARA THRU 2000-EXIT UNTIL END-OF-DATA.
 
     PERFORM 3000-CLOSE-PARA.
*
 1000-INITILIZATION-PARA.
  
     OPEN INPUT  INPUT-FILE. 
     OPEN OUTPUT PRINT-FILE.
*
 2000-PROCESS-PARA.
     
     READ INPUT-FILE  AT END
          MOVE 'YES' TO END-OF-DATA-EF
                GO TO 2000-EXIT.
     MOVE INPUT-REC TO OUPUT-REC.
     WRITE OUTPUT-REC.
*
 2000-EXIT.
     EXIT.
*
 3000-CLOSE-FILES.
     CLOSE INPUT-FILE OUTPUT-FILE.
*
 3000-EXIT     
     EXIT.