Mục nhóm và hồ sơ

Trong COBOL, các biến cơ bản có thể được nhóm lại với nhau thành cấu trúc phân cấp được gọi là mục nhóm hoặc bản ghi. Điều này cho phép bạn xử lý một tập hợp dữ liệu liên quan dưới dạng một thực thể duy nhất (ví dụ: để sao chép hoặc hiển thị chúng) hoặc dưới dạng các trường riêng lẻ.

Số cấp độ và quan hệ thứ bậc

Để xác định một bản ghi, bạn sử dụng số cấp độ trong DATA DIVISION:

• Cấp độ 01: Xác định bản ghi chính (tên nhóm). Nó không có mệnh đề PICTURE riêng vì kích thước của nó được xác định bởi tổng các trường bên trong của nó.
• Cấp cấp dưới (05, 10, 15, v.v.): Xác định các trường cấp dưới thuộc nhóm cấp cao hơn. Chúng có thể là các biến cơ bản (với mệnh đề PIC) hoặc các mục nhóm khác (bản ghi phụ).

01 WS-EMPLOYEE-RECORD.
    05 WS-EMP-ID       PIC 9(5).
    05 WS-EMP-NAME     PIC X(20).
    05 WS-EMP-SALARY   PIC 9(6)V99.

Trong ví dụ này, WS-EMPLOYEE-RECORD là cấu trúc nhóm chứa ba trường phụ. Nếu chúng ta tham chiếu WS-EMPLOYEE-RECORD, chúng ta sẽ đọc hoặc viết tất cả 5 + 20 + 8 = 33 ký tự của bản ghi cùng một lúc.

Câu lệnh MOVE và các mục nhóm

Chúng ta có thể gán giá trị cho các trường cơ bản riêng lẻ:

MOVE 10023 TO WS-EMP-ID.
MOVE "JOHN DOE" TO WS-EMP-NAME.

Hoặc chúng ta có thể sao chép toàn bộ bản ghi này sang một bản ghi tương thích khác chỉ bằng một thao tác:

MOVE WS-EMPLOYEE-RECORD TO WS-EMPLOYEE-BACKUP.

Hãy tự mình thử