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

• HP COBOL allows you to qualify status condition-names.
• COBOL does not permit the decimal point as the rightmost (last) character of a numeric literal;
HP COBOL relaxes this restriction somewhat:
◦ If the apparent last character of a numeric literal qualifies as a decimal point and the
immediately following character is not a space (but is a semicolon, comma, or right
parenthesis), the compiler interprets that last character as the decimal point.
◦ If the apparent last character qualifies as a decimal point but the immediately following
character is a space, the compiler interprets that last character and the space together
as the separator that follows the literal.
Data Fundamentals
The only HP extension to ISO/ANSI COBOL that affects data fundamentals is byte alignment of
binary data items (see PORT and NOPORT (page 560)).
Environment Division
These HP extensions to ISO/ANSI COBOL are elements of the Environment Division:
• CHARACTER-SET Clause (page 104)
• Special system-names:
CONSOLE for the operator’s console◦
◦ MYTERM for the home terminal of a process
◦ CHANNEL-1 through CHANNEL-12 for carriage-control tape channels
See System-Name Clause (page 106).
• File-Control Entries in General (page 115)
• RECEIVE-CONTROL Paragraph (page 143)
Data Division
These HP extensions to ISO/ANSI COBOL are elements of the Data Division:
• Extended-Storage Section (page 178)
• ACCESS MODE Clause (page 180)
• These additional data formats (see USAGE Clause (page 203)):
COMPUTATIONAL-3 (COMP-3)◦
◦ COMPUTATIONAL-5 (COMP-5)
◦ NATIVE-2
◦ NATIVE-4
◦ NATIVE-8
◦ PACKED-DECIMAL
◦ POINTER
706 HP Extensions to ISO COBOL