COBOL Manual for TNS and TNS/R Programs

Data Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
7-71
USAGE Clause
Table 7-5. COMPUTATIONAL-3/PACKED-DECIMAL Digit Representation
Digit Value
Hexadecimal Digit Representation
Left* Nibble (Odd Digit) Right* Nibble (Even Digit)
0 X"00" X"00"
1 X"10" X"01"
2 X"20" X"02"
3 X"30" X"03"
4 X"40" X"04"
5 X"50" X"05"
6 X"60" X"06"
7 X"70" X"07"
8 X"80" X"08"
9 X"90" X"09"
* Count even and odd from right to left.
Table 7-6. COMPUTATIONAL-3/PACKED-DECIMAL Sign Digit Representation
Sign Convention in
PICTURE Clause Sign of Data Item Value Sign Half-Character (Hexadecimal)
Unsigned Not applicable X"0F"
Signed + X"0C"
Signed - X"0D"
Table 7-7. Numeric Data Storage for the COMPUTATIONAL-3/PACKED-DECIMAL
PICTURE Clause
Bytes Required Number of Digits (Signed or Unsigned)
11
22-3
34-5
46-7
58-9
610-11
712-13
814-15
916-17
10 18