Start of change

ZONED(digits {: decimal-positions})

The ZONED keyword is a numeric data type keyword. It is used in a free-form definition to indicate that the item has zoned-decimal format.

It must be the first keyword.

The first parameter is required. It specifies the total number of digits. It can be a value between 1 and 63.

The second parameter is optional. It specifies the number of decimal positions. It can be a value between zero and the number of digits. It defaults to zero.

Each parameter can be a literal or a named constant. If it is a named constant, the constant must be defined prior to the definition statement.

In the following example
  DCL-S salary ZONED(5 : 2);
  DCL-S age ZONED(3);
  DCL-C NUM_DEC_POS 3;
  DCL-S price ZONED(7 : NUM_DEC_POS);
End of change