Bảng và Điều khoản OCCURS

Trong COBOL, không có từ khóa "mảng" hoặc "vectơ" để xác định danh sách dữ liệu đồng nhất. Với mục đích này, bạn sử dụng mệnh đề OCCURS để chỉ định số lần một biến hoặc cấu trúc lặp lại trong bộ nhớ.

Xác định bảng bằng OCCURS

Mệnh đề OCCURS được thêm vào phần khai báo biến phụ (ví dụ: cấp 05 trở lên) trong cấu trúc nhóm (cấp 01):

01 WS-SALES-DATA.
    05 WS-MONTHLY-SALES PIC 9(4) OCCURS 12 TIMES.

Trong ví dụ này, WS-MONTHLY-SALES là một bảng bao gồm 12 phần tử số, mỗi phần tử có 4 chữ số. Bộ nhớ được phân bổ cho bản ghi này sẽ có chính xác 12 * 4 = 48 ký tự.

Truy cập các phần tử và chỉ mục

Để truy cập một phần tử cụ thể trong bảng, hãy chỉ định chỉ mục trong ngoặc đơn ngay sau tên trường.

[! QUAN TRỌNG] Không giống như hầu hết các ngôn ngữ hiện đại sử dụng lập chỉ mục dựa trên 0, COBOL sử dụng lập chỉ mục dựa trên 1. Phần tử đầu tiên nằm ở chỉ mục 1, phần tử thứ hai ở chỉ mục 2, v.v.

MOVE 1500 TO WS-MONTHLY-SALES(1).
MOVE 2400 TO WS-MONTHLY-SALES(2).

Duyệt qua một bảng (Lặp lại)

Để lặp qua các thành phần của bảng, bạn có thể sử dụng câu lệnh PERFORM VARYING hoặc quản lý bộ đếm theo cách thủ công trong vòng lặp PERFORM UNTIL:

PERFORM UNTIL WS-INDEX > 12
    DISPLAY "Sales: " WS-MONTHLY-SALES(WS-INDEX)
    ADD 1 TO WS-INDEX
END-PERFORM.

Hãy tự mình thử