关于COBOL循环读文件的问题

400水B

  IDENTIFICATION DIVISION.                        
        PROGRAM-ID.   CBL10.                           
        ENVIRONMENT    DIVISION.                        
        CONFIGURATION SECTION.                          
        SOURCE-COMPUTER. IBM-ISERIES.                  
        OBJECT-COMPUTER. IBM-ISERIES.                  
        INPUT-OUTPUT  SECTION.                          
        FILE-CONTROL.                                 
           SELECT OUTPUT01 ASSIGN TO DATABASE-CUSTOMER   //2. 使用SELECT和ASSIGN给internal File关联一个external File,这样程序才能操作外边文件
               ORGANIZATION IS INDEX               
                ACCESS IS RANDOM                      //   随即读取
                            RECORD KEY IS CUSNO
                FILE STATUS IS OUTPUT01-FILE-STATUS.     
        DATA           DIVISION.                        
        FILE SECTION.                                 
        FD  OUTPUT01.                                 
       01  OUTPUR01-REC.                           
           COPY DDS-ALL-FORMATS OF CUSTOMER.         
        WORKING-STORAGE SECTION.                        
        77  OUTPUT01-FILE-STATUS  PIC X(2).            
        PROCEDURE      DIVISION.                  
        MAINLINE.                                 
           OPEN I-O OUTPUT01.
                        MOVE 'A'  TO CUSNO.
                        PERFORM READ-O UNTIL EOF = 'Y'
                     
           CLOSE OUTPUT01.                        
            STOP RUN.   
                    READ-O.                     
            READ    OUTPUT01.                     
              INVALID KEY MOVE TO 'Y'  EOF
              NOT INVALID KEY                                                   
              DISPLAY CUSAD
            END-READ.         
现在程序死循环了，而我只是想让这个程序像RPG 的READE 一样通过键值去读所有 CUSNO ＝ ‘A’的记录的值，但是现在显示的却一直是第一条CUSNO=A的值，请问我这个程序错在哪里？