COBOL Найти последнюю строку (и первую)

 IDENTIFICATION DIVISION.
 PROGRAM-ID. PGM0001.
 
 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
 
     SELECT FILE1
     ASSIGN TO "FILE1.DB".
     
     SELECT FILE2
     ASSIGN TO "FILE2.DB".
     
     SELECT FILE3
     ASSIGN TO "FILE3.DB".
     
 DATA DIVISION.
 FILE SECTION.
 
 FD  FILE1.
 01  RE-FILE1              PIC X(10).
 
 FD  FILE2.
 01  RE-FILE2              PIC X(10).
 
 FD  FILE3.
 01  RE-FILE3              PIC X(10).
 
 WORKING-STORAGE SECTION.
 01  SV-REG                PIC X(10).
 01  SW-EOF                PIC X.
     88  SW-EOF-YES                  VALUE 'Y'.
     88  SW-EOF-NO                   VALUE 'N'.
      
 PROCEDURE DIVISION.
 
     OPEN INPUT  FILE1
     OPEN OUTPUT FILE2
     OPEN OUTPUT FILE3
     
     SET SW-EOF-NO TO TRUE     
     
     PERFORM READ-FILE1
     
     IF  SW-EOF-NO
         WRITE RE-FILE2 FROM RE-FILE1      
     
         PERFORM READ-FILE1
         
         IF  SW-EOF-NO
             MOVE RE-FILE1 TO SV-REG
             
             PERFORM READ-FILE1
             
             IF  SW-EOF-NO
                 PERFORM UNTIL SW-EOF-YES
                     WRITE RE-FILE3 FROM SV-REG
                     
                     MOVE RE-FILE1 TO SV-REG
                     
                     PERFORM READ-FILE1
                 END-PERFORM
             END-IF
             
             WRITE RE-FILE2 FROM SV-REG
         END-IF
     END-IF
     
     CLOSE FILE1
     CLOSE FILE2
     CLOSE FILE3     
     
     STOP RUN.
     
 READ-FILE1.
     
     READ FILE1
         AT END
             SET SW-EOF-YES TO TRUE
     END-READ
     .