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

left-hand (most significant) end of the data item and are set to zero. SeeTable 35, Table 35,
and Table 37.
COMPUTATIONAL-3/PACKED-DECIMAL is also called binary coded decimal form.
The keyword PACKED-DECIMAL is an element of COBOL, but the data format is not. If your
program is compiled with a FIPS directive with NONSTANDARDEXT in the
flag-option-list, the compiler issues a warning message when it finds a
COMPUTATIONAL-3/PACKED-DECIMAL data item.
COMPUTATIONAL-5, COMP-5
describes a two’s complement binary integer that occupies 2, 4, or 8 character positions
(bytes), depending on its PICTURE clause. (See PICTURE clause under “USAGE Clause” (page
203).)
The COMPUTATIONAL-5 data type is not an element of COBOL. If your program is compiled
with a FIPS directive with NONSTANDARDEXT in the flag-option-list, the compiler
issues a warning message when it finds a COMPUTATIONAL-5 data item.
DISPLAY
describes a sequence of characters stored in standard data format. Its PICTURE clause determines
the number and types of characters in the value, which can be used in any context for its
category. DISPLAY is the default for elementary data items.
INDEX
describes an index data item—a data item that occupies four character positions and whose
value is the occurrence number of a table element. This value cannot be used in computations.
An index data item has no PICTURE clause.
NATIVE-2
describes a signed, two’s complement binary integer that occupies 2 character positions (bytes)
and can have a value in the range -32,768 through +32,767.
NATIVE-4
describes a signed, two’s complement binary integer that occupies 4 character positions (bytes)
and can have a value in the range -2,147,483,648 through +2,147,483,647.
NATIVE-8
describes a signed, two’s complement binary integer that occupies 8 character positions (bytes)
and can have a value in the range -9,223,372,036,854,775,808 through
+9,223,372,036,854,775,807.
POINTER
describes a 4-byte data item whose value, which is assigned with the SET statement, is the
address of another data item.
NOTE: The NATIVE-n and POINTER data types are not elements of COBOL. If your program
is compiled with a FIPS directive with NONSTANDARDEXT in the flag-option-list, the
compiler issues a warning message when it finds a NATIVE-n or POINTER data item.
Table 35 COMPUTATIONAL-3/PACKED-DECIMAL Digit Representation
Hexadecimal Digit Representation
Right* Nibble (Even Digit)Left* Nibble (Odd Digit)Digit Value
X"00"X"00"0
X"01"X"10"1
X"02"X"20"2
X"03"X"30"3
X"04"X"40"4
204 Data Division