COBOL程序順序讀取平面文件並將其寫入輸出文件，無法讀取所有循環將無限

我試圖寫COBOL程序順序讀取平面文件並將其寫入輸出文件，我一次只能讀取一條記錄，無法讀取下一個記錄，我該怎麼辦？COBOL程序順序讀取平面文件並將其寫入輸出文件，無法讀取所有循環將無限

這裏是我的代碼：

PROCEDURE DIVISION.           
    OPEN INPUT FILEX.           
    PERFORM READ-PARA THRU END-PARA UNTIL END-OF-FILE = 'Y'. 
    CLOSE FILEX.            
    STOP RUN.             
READ-PARA.              
    READ FILEX             
     AT END             
    MOVE 'Y' TO END-OF-FILE         
    DISPLAY OFFCODE1           
    DISPLAY AGCODE1           
    DISPLAY POLNO1            
    DISPLAY EFFDATE1           
    DISPLAY EXPDATE           
    DISPLAY REPCODE           
    DISPLAY POLHOLDER1           
    DISPLAY LOCATION1           
    GO TO END-PARA.           
END-PARA.

我，已經使用範圍終止試過了，仍然無法循環「M越來越S001 ABEND這裏是我的代碼：

IDENTIFICATION DIVISION.    
PROGRAM-ID. SIMPLE.     
ENVIRONMENT DIVISION.     
INPUT-OUTPUT SECTION.     
FILE-CONTROL.       
SELECT FILEX ASSIGN TO SYSUT1 
FILE STATUS IS FS.    
DATA DIVISION.      
FILE SECTION.       
FD FILEX.       
01 FILEXREC.       
02 OFFCODE1 PIC X(3).    
02 FILLER PIC X.     
02 AGCODE1 PIC X(3).    
02 FILLER PIC X.     
02 POLNO1 PIC X(6).    
02 FILLER PIC X.     
02 EFFDATE1 PIC X(8).    
02 FILLER PIC X.           
02 EXPDATE PIC X(8).          
02 FILLER PIC X.           
02 REPCODE PIC X(1)          
02 FILLER PIC X.           
02 POLHOLDER1 PIC X(8).         
02 FILLER PIC X.           
02 LOCATION1 PIC X(9).         
02 FILLER PIC X(87).          
WORKING-STORAGE SECTION.          
77 FS PIC 9(2).            
01 WS-INDICATORS.           
10 WS-EOF-IND     PIC X(01) VALUE 'N'. 
    88 WS-END-OF-FILE      VALUE 'Y'. 
PROCEDURE DIVISION.           
OPEN INPUT FILEX.          
PERFORM READ-PARA THRU END-PARA UNTIL WS-END-OF-FILE. 
CLOSE FILEX. 
STOP RUN.       
READ-PARA.        
READ FILEX       
    AT END       
     MOVE 'Y' TO WS-EOF-IND.  
    DISPLAY OFFCODE1     
    DISPLAY AGCODE1     
    DISPLAY POLNO1     
    DISPLAY EFFDATE1     
    DISPLAY EXPDATE     
    DISPLAY REPCODE     
    DISPLAY POLHOLDER1    
    DISPLAY LOCATION1    
    IF WS-END-OF-FILE    
     GO TO END-PARA.    
    END-PARA.        
EXIT.

多一個方法我甚至在這個作品中只嘗試了一條記錄，在運行代碼時再次獲得S001 ABEND。下面是代碼：

IDENTIFICATION DIVISION.     
    PROGRAM-ID. ASSIGNMENT.     
    ENVIRONMENT DIVISION.      
    INPUT-OUTPUT SECTION.      
    FILE-CONTROL.        
    SELECT FILEX ASSIGN TO SYSUT1   
    DATA DIVISION.        
    FILE SECTION.        
    FD FILEX.         
    LABEL RECORDS ARE STANDARD    
    RECORD CONTAINS 140 CHARACTERS  
    BLOCK CONTAINS 00 RECORDS.   
    01 FILEXREC.        
     02 OFFCODE1 PIC 9(3).     
     02 FILLER PIC X.      
     02 AGCODE1 PIC X(3).     
     02 FILLER PIC X.      
     02 POLNO1 PIC X(6).     
     02 FILLER PIC X.          
     02 EFFDATE1 PIC X(8).         
     02 FILLER PIC X.          
     02 EXPDATE1 PIC X(8).         
     02 FILLER PIC X.          
     02 REPCODE1 PIC X(1).         
     02 FILLER PIC X.          
     02 POLHOLDER1 PIC X(8).        
     02 FILLER PIC X.          
     02 LOCATION1 PIC X(9).         
     02 FILLER PIC X(26).         
    WORKING-STORAGE SECTION.         
    01 WS-INDICATORS.           
    10 WS-EOF-IND     PIC X(01) VALUE 'N'. 
    88 WS-END-OF-FILE      VALUE 'Y'. 

    01 TEMP1.             
    02 OFFCODE2 PIC 9(3).         
    02 FILLER PIC X.          
    02 AGCODE2 PIC X(3).         
    02 FILLER PIC X.          
    02 POLNO2 PIC X(6).         
    02 FILLER PIC X.          
    02 EFFDATE2 PIC X(8).         
    02 FILLER PIC X.          
    02 EXPDATE2 PIC X(8).         
    02 FILLER PIC X.          
    02 REPCODE2 PIC X(1).         
    02 FILLER PIC X.          
    02 POLHOLDER2 PIC X(8).        
    02 FILLER PIC X.          
    02 LOCATION2 PIC X(9).         
    02 FILLER PIC X(26).         
PROCEDURE DIVISION.          
OPEN INPUT FILEX.          
PERFORM READ-PARA THRU END-PARA UNTIL WS-END-OF-FILE. 
CLOSE FILEX.           
STOP RUN.       
READ-PARA.       
READ FILEX      
    INTO TEMP1     
    AT END       
    MOVE 'Y' TO WS-EOF-IND.  
    DISPLAY OFFCODE1    
    DISPLAY AGCODE1     
    DISPLAY POLNO1     
    DISPLAY EFFDATE1    
    DISPLAY EXPDATE1    
    DISPLAY REPCODE1    
    DISPLAY POLHOLDER1    
    DISPLAY LOCATION1    
     IF WS-END-OF-FILE   
      GO TO END-PARA.  
    END-PARA.      
     EXIT.

來源

2012-07-10 Jennifer Victor

你真的應該使用END-終結... END-PERFORM，END-IF，END-READ等

至於你的問題，如果我是猜測，我會說你不是隻讀第一個記錄，你正在閱讀所有記錄並只顯示最後一個記錄。你的READ語句有一個AT END，一切都完成了，但是它沒有NOT AT END來告訴它如何處理成功讀取的記錄。我通常正是如此代碼我READ語句：

READ FILE 
    AT END 
    SET FILE-EOF TO TRUE 
    NOT AT END 
    PERFORM PROCESS-RECORD 
END-READ

裹在一個像這樣的執行和它的作品相當不錯：

SET FILE-NOT-EOF TO TRUE 
PERFORM UNTIL FILE-EOF 
    READ FILE 
    AT END 
     SET FILE-EOF TO TRUE 
    NOT AT END 
     PERFORM PROCESS-RECORD 
    END-READ 
END-PERFORM

祝你好運，希望它能爲你。編寫可靠的COBOL可能非常困難。

來源

2012-07-10 12:37:41 mswanberg

+1 ..你的回答是正確的。從AT END到下一句（即直到END TO PARA之後的時間段）的所有代碼均落入AT END短語的範圍內。正如你所示，END-READ應該總是用來限制READ語句的範圍。 – NealB 2012-07-10 13:25:37

+1 ..我會更進一步。如果END- *可用，則應完全避免除標籤末尾所需段之外的所有時段，並且還應完全避免PERFORM中的任何THRU子句。混合74式控制和終止與85式控制和終止永遠是一個跆拳道？！？發電機。 – 2012-07-10 16:00:33

嗨，感謝您的回覆，不幸的是它並沒有爲我工作，因爲他們在這裏使用舊版本的COBOL COBOL-2，所以仍然在尋找如何循環 – 2012-07-11 10:12:01

我想你是不是還在等待:-)

在一個地方文件是140，但定義僅79

您可以使用文件的狀態，但不檢查。您的文件可能無法成功打開，如果您檢查了FS字段（巧妙的名稱，但可能複製了IBM的示例），您將發現該文件。

當您讀取並獲取文件結束時，您將設置該標誌，但仍會像處理記錄一樣進行處理。根據「事情」，這會讓你得到錯誤的數據，或者讓你陷入一場異常。

轉到END-PARA沒有意義，因爲無論如何END-PARA都會立即生效。

希望你回去看看NealB提供的代碼，並得到了幾個月前的事情...

來源

2013-01-23 19:38:15

COBOL程序順序讀取平面文件並將其寫入輸出文件，無法讀取所有循環將無限

回答

相關問題