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
  • field salary is defined as a zoned field with 5 digits and 2 decimal places
  • field age is defined as a zoned field with 3 digits and the default of 0 decimal places
  • field price is defined as a zoned field with 7 digits and 3 decimal positions. The number of decimal positions is defined using named constant NUM_DEC_POS.

  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);