up关于COBOL循环读文件的问题 .txt

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.