COBOL Manual for TNS and TNS/R Programs

Program Compilation
HP COBOL Manual for TNS and TNS/R Programs—522555-006
11-67
DIAGNOSE-74 and NODIAGNOSE-74
The possible suffixes, explained in Usage Considerations:, are:
•
Size of index data item
•
Implied value of Figurative Constant
•
Precision of division operation
•
Action when program not found
•
Search algorithm
•
Size of receiving operand
•
Identification of statement operand
•
Assignment order of PERFORM operands
•
Alphanumeric sender
Usage Considerations:
•
Size of Index Data Item
A data item within a record description has an explicit USAGE INDEX clause.
Indexes occupied two bytes in COBOL 74, but occupy four bytes in HP COBOL.
You must convert any files that include records in which index data items occur.
•
Implied Value of Figurative Constant
A MOVE statement attempts to assign a value of
ALL literal
to a numeric or numeric-edited item, or a relation condition involves such a value.
You must change the literal to deliver the expected value. If X has a picture of 99.9,
COBOL 74 handled
MOVE ALL "6" TO X
as meaning
MOVE 6 TO X
HP COBOL handles the same MOVE as meaning
MOVE 66.0 TO X
•
Precision of Division Operation
The division operator (/) occurs in an arithmetic expression. In COBOL 74, a
division could discard high-level digits without producing a diagnostic. In
HP COBOL, a fatal arithmetic overflow can occur.
•
Action When Program Not Found
The OVERFLOW clause is present in a CALL statement. HP COBOL accepts
EXCEPTION and NOT EXCEPTION in the CALL statement.
You must replace the OVERFLOW clauses in CALL statements with EXCEPTION
clauses.