cobol如何循環(huán)讀取文件

小億
218
2023-10-16 12:00:15
欄目: 編程語言

在COBOL中循環(huán)讀取文件可以使用PERFORM循環(huán)結(jié)構(gòu)來實(shí)現(xiàn)。以下是一個(gè)簡(jiǎn)單的示例代碼：

```
IDENTIFICATION DIVISION.
PROGRAM-ID. READ-FILE.

DATA DIVISION.
FILE SECTION.
FD INPUT-FILE.
01 INPUT-RECORD.
  05 INPUT-FIELD PIC X(10).

WORKING-STORAGE SECTION.
01 EOF-SWITCH PIC X(01) VALUE 'N'.

PROCEDURE DIVISION.
MAIN-LOGIC.
   OPEN INPUT INPUT-FILE
   PERFORM UNTIL EOF-SWITCH = 'Y'
       READ INPUT-FILE INTO INPUT-RECORD
       AT END MOVE 'Y' TO EOF-SWITCH
       NOT AT END
           DISPLAY "Read record: " INPUT-FIELD
   END-PERFORM
   CLOSE INPUT-FILE
   STOP RUN.
```

在上面的代碼中，首先定義了一個(gè)文件描述符FD和一個(gè)輸入記錄INPUT-RECORD。然后在工作存儲(chǔ)部分定義了一個(gè)名為EOF-SWITCH的變量，用于判斷文件是否已讀取完畢。

在主過程中，首先打開輸入文件，然后使用PERFORM循環(huán)結(jié)構(gòu)來連續(xù)讀取文件中的記錄，直到遇到文件末尾。在每次讀取記錄后，通過AT END子句判斷是否已到文件末尾，如果是的話則將EOF-SWITCH設(shè)置為'Y'，否則通過NOT AT END子句來處理讀取到的記錄。

最后，關(guān)閉輸入文件并停止程序運(yùn)行。

0 踩