COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Table 35 COMPUTATIONAL-3/PACKED-DECIMAL Digit Representation (continued)
Hexadecimal Digit Representation
Right* Nibble (Even Digit)Left* Nibble (Odd Digit)Digit Value
X"05"X"50"5
X"06"X"60"6
X"07"X"70"7
X"08"X"80"8
X"09"X"90"9
* Count even and odd from right to left.
Table 36 COMPUTATIONAL-3/PACKED-DECIMAL Sign Digit Representation
Sign Half-Character (Hexadecimal)Sign of Data Item ValueSign Convention in PICTURE Clause
X"0F"Not applicableUnsigned
X"0C"+Signed
X"0D"-Signed
Table 37 Numeric Data Storage for the COMPUTATIONAL-3/PACKED-DECIMAL PICTURE Clause
Number of Digits (Signed or Unsigned)Bytes Required
11
2-32
4-53
6-74
8-95
10-116
12-137
14-158
16-179
1810
A COMPUTATIONAL-3/PACKED-DECIMAL data item with PICTURE 9999 and value +1234 is
stored as shown in Figure 9, where F represents the nonprinting plus sign.
Figure 9 Example of COMPUTATIONAL-3/PACKED-DECIMAL Storage
A COMPUTATIONAL-3/PACKED-DECIMAL data item with PICTURE S9999 and value +1234 is
stored as shown in Figure 9 except that F is replaced by C (1100), which represents the plus sign
(+).
Descriptions of Records (Levels 01-49) 205