Chuyển đến nội dung chính
Mô-đun 1 · Bài học 2 trong tổng số 22/10 trong khóa học~12 min
Bài học theo mô-đun (2/2)

Biến và HÌNH ẢNH

Trong COBOL, tất cả các biến được sử dụng phải được khai báo bên trong PHÂN BIỆT DỮ LIỆU. Cụ thể, các biến tạm thời trong bộ nhớ được sử dụng cho logic chương trình nằm bên trong PHẦN LƯU TRỮ LÀM VIỆC.

Số cấp

Khai báo biến COBOL sử dụng các số cấp để cấu trúc và sắp xếp dữ liệu theo thứ bậc:

  • 01: Xác định một biến chính hoặc mục nhóm (mức cao nhất).
  • 05, 10, 15: Xác định các trường cấp dưới trong mục nhóm cấp 01.
  • 77: Các biến cơ bản độc lập được chỉ định trong lịch sử không thể chia nhỏ hơn nữa.

Trong thực tế hiện đại, cấp độ 01 thường được sử dụng để khai báo các biến cơ bản độc lập.

Điều khoản HÌNH ẢNH (hoặc PIC)

Mệnh đề PICTURE (viết tắt PIC) chỉ định loại dữ liệu và độ dài ký tự của biến. Ba ký tự định dạng cơ bản là:

  1. X (Chữ và số): Có thể chứa chữ cái, số và ký tự đặc biệt.
    • PIC X(10) khai báo một chuỗi có đúng 10 ký tự.
  2. 9 (Số): Chỉ có thể chứa các chữ số.
    • PIC 9(3) khai báo một số nguyên gồm 3 chữ số (tối đa 999).
  3. V (Dấu thập phân ngầm): Được sử dụng ở dạng số thập phân để biểu thị nơi phần phân số bắt đầu (dấu thập phân không được lưu trữ vật lý).
    • PIC 9(3)V99 khai báo một số có 3 chữ số nguyên và 2 chữ số thập phân.

Điều khoản VALUE

Để gán giá trị ban đầu cho một biến tại thời điểm khai báo, hãy sử dụng mệnh đề VALUE.

COBOL
01 WS-PROJECT-NAME PIC X(15) VALUE "ELEARNER".
01 WS-USER-AGE     PIC 9(3)  VALUE 25.

Tất cả các định nghĩa biến phải kết thúc bằng dấu chấm ..


Hãy tự mình thử

tập thể dục#cobol.m1.l2.e1
Nỗ lực: 0Đang tải…

Khai báo một biến chữ và số cấp 01 có tên WS-USER-NAME có độ dài 20 ký tự và đặt giá trị ban đầu của nó là 'ALICE'.

Đang tải trình chỉnh sửa…
Hiển thị gợi ý

Sử dụng định dạng: 01 WS-USER-NAME PIC X(20) VALUE 'ALICE'.

Giải pháp khả dụng sau 3 lần thử

tập thể dục#cobol.m1.l2.e2
Nỗ lực: 0Đang tải…

Khai báo biến số cấp 01 có tên WS-USER-AGE gồm 3 chữ số với giá trị ban đầu là 25.

Đang tải trình chỉnh sửa…
Hiển thị gợi ý

Sử dụng cú pháp: 01 WS-USER-AGE PIC 9(3) VALUE 25.

Giải pháp khả dụng sau 3 lần thử