Dictionary/3000 Reference Manual (32244-90001)

Chapter 7 279
The Dictionary DICTCDE Utility
COBOL Data Type Mappings
ELEMENT-SIZE = 5
ELEMENT-DECIMAL = 0 { PIC S9(10) COMP.
ELEMENT-LENGTH = 8
(Ten digits used to force a 4-word integer.)
Packed Decimal
The data types defined in the Dictionary as P, are mapped to COBOL
COMPUTATIONAL-3 data types. However, this data type is defined in COBOL to occupy
the same storage length as specified in the Dictionary, regardless of digit length. If the
digit length specified in the Dictionary is sufficient to fill the storage length specified in the
Dictionary, then DICTCDE will use that digit length. If the number of digits is insufficient
to fill the specified storage length, then DICTCDE will use the minimum number of digits
to fill the storage length for the entity. If the number of digits is too large, DICTCDE will
use the maximum number of digits allowed for the storage length.
For example, the following entities in the Dictionary are generated as follows:
ELEMENT-TYPE = P
ELEMENT-SIZE = 8
ELEMENT-DECIMAL = 0 { PIC S9(8) COMP-3.
ELEMENT-LENGTH = 5
ELEMENT-TYPE = P
ELEMENT-SIZE = 9
ELEMENT-DECIMAL = 0 { PIC S9(9) COMP-3.
ELEMENT-LENGTH = 5
ELEMENT-TYPE = P
ELEMENT-SIZE = 8
ELEMENT-DECIMAL = 0 { PIC S9(10) COMP-3.
ELEMENT-LENGTH = 6
(Ten digits are used to force a 6 byte storage length.)
ELEMENT-TYPE = P
ELEMENT-SIZE = 8
ELEMENT-DECIMAL = 2 { PIC S9(5)V9(2) COMP-3.
ELEMENT-LENGTH = 4
The decimal point for the above entity requires a digit place.