在COBOL中循環讀取文件可以使用PERFORM循環結構來實現。以下是一個簡單的示例代碼：
```
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.
```
在上面的代碼中，首先定義了一個文件描述符FD和一個輸入記錄INPUT-RECORD。然后在工作存儲部分定義了一個名為EOF-SWITCH的變量，用于判斷文件是否已讀取完畢。
在主過程中，首先打開輸入文件，然后使用PERFORM循環結構來連續讀取文件中的記錄，直到遇到文件末尾。在每次讀取記錄后，通過AT END子句判斷是否已到文件末尾，如果是的話則將EOF-SWITCH設置為'Y'，否則通過NOT AT END子句來處理讀取到的記錄。
最后，關閉輸入文件并停止程序運行。
