title: Read a file with three records, only one of expected records output
body: <pre><code>IDENTIFICATION DIVISION.  
  PROGRAM-ID. PROGRAM1.  
  ENVIRONMENT DIVISION.  
  INPUT-OUTPUT SECTION.  
  FILE-CONTROL.  
  SELECT EMP-GRADE ASSIGN TO 'input.txt'  
   ORGANIZATION IS SEQUENTIAL  
   ACCESS MODE IS SEQUENTIAL  
   FILE STATUS IS WS-STATUS.   
  DATA DIVISION.  
  FILE SECTION.  
  FD EMP-GRADE.  
   01 NEWFILE.  
    05 FS-EMPID   PIC 9(5).  
    05 FS-NAME    PIC A(5).  
    05 FS-STREAM  PIC X(5).  
    05 FS-GRADE   PIC A(1).  
    05 FILLER     PIC X(64).  
  WORKING-STORAGE SECTION.  
  01 WS-EOF PIC A(1) VALUE "N".  
  01 WS-STATUS PIC X(2).  
  PROCEDURE DIVISION.  
  MAIN-PARA.  
      OPEN INPUT EMP-GRADE.  
      PERFORM PARA1 THRU PARA1-EXIT UNTIL WS-EOF="Y".  
      CLOSE EMP-GRADE.  
      STOP RUN.  
  MAIN-PARA-EXIT.  
      EXIT.  
  PARA1.  
      READ EMP-GRADE  
          AT END MOVE "Y" TO WS-EOF  
          NOT AT END   
           IF FS-GRADE='A'  
            DISPLAY FS-EMPID , FS-NAME , FS-STREAM , FS-GRADE  
           END-IF  
  END-READ.  
  PARA1-EXIT.  
      EXIT.  
  </code></pre>
  
  <p><strong>input provided:</strong>  </p>
  
  <pre><code>1234 sita comp A  
  2345 tina main B  
  5689 riya math A  
  </code></pre>
  
  <p><strong>but the output is coming :</strong>  </p>
  
  <pre><code>1234 sita comp A 
  </code></pre>
  
  <p>It is reading only the first record.</p>