COBOL Manual for TNS and TNS/R Programs

Data Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
7-70
USAGE Clause
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. For more information on the
PICTURE clause, see PICTURE clause.
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.