Dictionary/3000 Reference Manual (32244-90001)

Chapter 7 277
The Dictionary DICTCDE Utility
COBOL Data Type Mappings
Zoned Decimal
Suppose the entity is defined in the Dictionary as:
ELEMENT-TYPE = Z+
ELEMENT-SIZE = 8
ELEMENT-DECIMAL = 2
ELEMENT-LENGTH = 7
the corresponding COBOL clause will be generated:
PIC 9(5)V9(2)
Suppose the entity is defined in the Dictionary as:
ELEMENT-TYPE = Z
ELEMENT-SIZE = 8
ELEMENT-DECIMAL = 2
ELEMENT-LENGTH = 7
the corresponding COBOL clause will be generated:
PIC S9(5)V9(2)
If the above entity is defined in the Dictionary as SIGN TRAILING SEPARATE,
DICTCDE will generate the corresponding COBOL clause:
PIC S9(4)V9(2) SIGN TRAILING SEPARATE
Note that 1 less byte is generated because of the sign.
Boolean
Suppose the entity is defined in the Dictionary as:
ELEMENT-TYPE = B
ELEMENT-SIZE = 1
ELEMENT-LENGTH = 1
the corresponding COBOL clause will be generated:
PIC X(1)
Since this is an undefined COBOL type, DICTCDE will flag this element definition with a
warning message.
String
Suppose the entity is defined in the Dictionary as:
ELEMENT-TYPE = S
ELEMENT-SIZE = 5
ELEMENT-LENGTH = 8
the corresponding COBOL clause will be generated:
PIC X(8)