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