讀取檔案的方式：
順序讀取的方式（A是定義讀取檔案的名稱，可隨意命名，檔案地址一般為絕對路徑）

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
          SELECT A ASSIGN TO 'C:\OC\input.txt'
          ORGANIZATION IS LINE SEQUENTIAL.  

具體全部程式碼：（順序讀取一個檔案）

 1        IDENTIFICATION  DIVISION.
 2        PROGRAM-ID.     HELLO.
 
 3 
 4        ENVIRONMENT DIVISION.
 5        INPUT-OUTPUT SECTION.
 6        FILE-CONTROL.
 7           SELECT A ASSIGN TO 'C:\OC\input.txt'
 8           ORGANIZATION IS LINE SEQUENTIAL.
 9 
10           DATA DIVISION.
11           FILE SECTION.
12       *FD語句主要用來描述與檔案記錄相關的物理資訊，如記錄實際格式，長度等。
13           FD A.
 
14           01 STUDENT-FILE.
15               05 STUDENT-ID PIC 9(5).
16               05 WS-NAME PIC A(25).
17 
18 
19           WORKING-STORAGE SECTION.
20           01 WS-STUDENT.
21               05 WS-STUDENT-ID PIC 9(5).
22               05 WS-NAME PIC A(25).
23           01 WS-EOF PIC A(1).
24 
25       *程式執行主體部分
 
26        PROCEDURE DIVISION.
27       *開啟檔案A作為輸入檔案，類似於c中的讀取檔案
28           OPEN INPUT A.
29       *迴圈讀取檔案A，並將資料放入WS-STUDENT，並列印WS-STUDENT
30              PERFORM UNTIL WS-EOF='Y'
31                 READ A INTO WS-STUDENT
32                    AT END MOVE 'Y' TO WS-EOF
33                    NOT AT END DISPLAY WS-STUDENT
34       *讀取完畢後，關閉所有讀取，結束迴圈，關閉檔案A
35                 END-READ
36               END-PERFORM.
37           CLOSE A.
38        STOP RUN.