8、COBOL语言编程基础与应用

COBOL语言编程基础与应用

1. 常量与REDEFINES命令

1.1 常量

在大多数现代语言中，常量是一个标准特性，可用于存储固定值，如税率或圆周率。但COBOL没有传统意义上的常量，而是使用可随时更改的字段，这是该语言的一个缺点。不过，COBOL有 figurative constants，即内置的固定值，如 ZERO、SPACE、NULL、ALL、HIGH - VALUES、LOW - VALUES 等。

1.2 REDEFINES命令

在某些情况下，你可能需要以不同方式定义一个字段，这时可以使用 REDEFINES 命令。例如：

01  PHONE - NUMBER      PIC 9(10).
01  PHONE - NUMBER - X    REDEFINES PHONE - NUMBER.
  05  AREA - CODE          PIC 9(3).
  05  TELEPHONE - PREFIX   PIC 9(3).
  05  LINE - NUMBER        PIC 9(4).

在这个例子中，有两个用于表示电话号码的字段，一个是基本项，另一个是数据组，提供了更细粒度的信息。

也可以对字母数字字段使用 REDEFINES：

01  PRODUCT - PRICE
PIC
$ZZ9.99.
01  PRODUCT - PRICE - X
PIC
REDEFINES PRODUCT - PRIC