
The PACKED keyword is a numeric data type keyword. It is used in a free-form definition to indicate that the item has packed-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 PACKED(5 : 2);
DCL-S age PACKED(3);
DCL-C NUM_DEC_POS 3;
DCL-S price PACKED(7 : NUM_DEC_POS);
