COBOL// Im keep getting same repeated records at the end. How to stop that so I can have only 3 entries at my final output. Please help.

Student.dat: his the following data:

123456789Bob Barker 123 Main Street Mankato MN560010000987654321Ricki Lake 833 E. 2nd Street Minneapolis MN554090000552354323Spaceman Spiff RR. 1, Box 832 Lexington KY543247669

Final Output:

Your Name Here Debugging Lab STUDENT NAME STUDENT NUMBER Bob Barker 123456789 Ricki Lake 987654321 Spaceman Spiff 552354323 Spaceman Spiff 552354323

Code Below:

IDENTIFICATION DIVISION. PROGRAM-ID. XYZ. AUTHOR. XXX. INSTALLATION. XXX. DATE-WRITTEN. xxxxxxxx. DATE-COMPILED. xxxxxxxx. SECURITY. None.

ENVIRONMENT DIVISION.

CONFIGURATION SECTION.

SOURCE-COMPUTER. MICROSOFT. OBJECT-COMPUTER. MICROSOFT.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

* change the paths to point to the project directory

SELECT PRINT-FILE ASSIGN TO "C:\printout.txt".

SELECT STUDENT-FILE ASSIGN TO "C:\students.dat".

DATA DIVISION.

FILE SECTION.

FD PRINT-FILE LABEL RECORDS ARE OMITTED DATA RECORD IS PRINT-LINE.

01 PRINT-LINE. 03 FILLER PIC X(80).

FD STUDENT-FILE LABEL RECORDS ARE OMITTED DATA RECORD IS INPUT-RECORD.

01 INPUT-RECORD. 05 STUDENT-NO PIC 9(9). 05 STUDENT-NAME PIC X(20). 05 STUDENT-ADDRESS PIC X(20). 05 STUDENT-CITY PIC X(15). 05 STUDENT-STATE PIC X(2). 05 STUDENT-ZIP PIC 9(9).

WORKING-STORAGE SECTION.

01 FIELD1 PIC X(20). 01 FIELD2 PIC X(20).

01 HEADING-LINE1. 03 FILLER PIC X(9) VALUE SPACES. 03 FILLER PIC X(18) VALUE "Your Name Here". 03 FILLER PIC X(4) VALUE SPACES. 03 FILLER PIC X(13) VALUE "Debugging Lab". 03 FILLER PIC X(10) VALUE SPACES.

01 HEADING-LINE2. 03 FILLER PIC X(9) VALUE SPACES. 03 FILLER PIC X(12) VALUE "STUDENT NAME". 03 FILLER PIC X(10) VALUE SPACES. 03 FILLER PIC X(14) VALUE "STUDENT NUMBER". 03 FILLER PIC X(29) VALUE SPACES.

01 DETAIL-LINE. 03 FILLER PIC X(10) VALUE SPACES. 03 DL-NAME PIC X(20). 03 FILLER PIC X(10) VALUE SPACES. 03 DL-NUMBER PIC X(20). 03 FILLER PIC X(50) VALUE SPACES.

01 SWITCHES. 03 EOF-SW PIC 9 VALUE ZEROS. 88 AT-END-OF-FILE VALUE 1. 88 NOT-AT-END VALUE ZEROS.

01 ACCUMULATORS-AND-SAVE-AREAS. 03 SAVE-FIELD1 PIC X(5) VALUE SPACES.

PROCEDURE DIVISION.

***************************************** * This is the Mainline Logic ***************************************** 000-PREPARE-SAMPLE-REPORT. PERFORM 100-OPEN-REPORT-FILES. PERFORM 200-FORMAT-HEADING-LINE. PERFORM 310-READ-INPUT-FILE. PERFORM 300-PREPARE-REPORT-LINE UNTIL AT-END-OF-FILE. PERFORM 400-FORMAT-DETAIL-LINE. PERFORM 500-CLOSE-PRINT-FILE. STOP RUN.

***************************************** * Opens the print file for output * and the student file for input ***************************************** 100-OPEN-REPORT-FILES. OPEN INPUT STUDENT-FILE OUTPUT PRINT-FILE.

***************************************** * Formats and prints the heading lines ***************************************** 200-FORMAT-HEADING-LINE. MOVE HEADING-LINE1 TO PRINT-LINE. PERFORM 210-WRITE-PRINT-LINE. MOVE HEADING-LINE2 TO PRINT-LINE. PERFORM 210-WRITE-PRINT-LINE.

***************************************** * Writes a print line after moving down * one line in the print file ***************************************** 210-WRITE-PRINT-LINE. WRITE PRINT-LINE AFTER ADVANCING 1 LINE.

***************************************** * Loop structure formats a line and * reads in the next record ***************************************** 300-PREPARE-REPORT-LINE. PERFORM 400-FORMAT-DETAIL-LINE. PERFORM 310-READ-INPUT-FILE.

***************************************** * * ***************************************** 310-READ-INPUT-FILE. READ STUDENT-FILE AT END MOVE 1 TO EOF-SW.

***************************************** * Fills in the detail line ***************************************** 400-FORMAT-DETAIL-LINE. MOVE STUDENT-NAME TO DL-NAME. MOVE STUDENT-NO TO DL-NUMBER. MOVE DETAIL-LINE TO PRINT-LINE. PERFORM 210-WRITE-PRINT-LINE.

***************************************** * Closes the print file and data file ***************************************** 500-CLOSE-PRINT-FILE. CLOSE PRINT-FILE, STUDENT-FILE.