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

• Find sequences of code that occur several times and make each of them a procedure (see
Procedures (page 237) and Procedure Execution (page 242)). To transfer control to a paragraph
or procedure, use the statement PERFORM (page 389).
• Change level-77 data items and elementary level-01 data items that are numeric from
USAGE DISPLAY to USAGE COMP (see USAGE Clause (page 203)).
401 (Error)
Embedded program code exceeds 32767 words
Cause
The object code generated for a contained program exceeds 65,534 bytes, which is the maximum
size supported.
402 (Error)
Reference modifier first character out of range
Cause
In a reference modifier, the value of the first character position exceeds the size of the subject
data item.
403 (Error)
Reference modifier length out of range
Cause
In a reference modifier, the value of the last character position first-character-position
+ length - 1 exceeds the size of the subject data item.
404 (Warning)
Size error on literal expression
Cause
The compiler has determined that this expression, composed solely of literal operands, will
always generate the size error condition during execution. If the associated statement includes
the SIZE ERROR clause, the program takes the size error branch; otherwise, an arithmetic overflow
can result, or (if the receiving item is of USAGE COMPUTATIONAL) the program can store a
number larger than the maximum value allowed for the item, leading to an arithmetic overflow
later in the execution.
405 (Warning)
Relation truth value is constant
Cause
The compiler has determined that the value of this relation condition will be always TRUE or
always FALSE. (Example: a literal is compared to a shorter data item.) This message might point
only to the statement in error, not to the erroneous line of the statement.
406 (Warning)
SET statement literal not in subscript range
Cause
A value of a numeric literal specified as the sending operand in a SET statement is greater than
the maximum occurrence number defined for assignment to an index-name specified as a
receiving operand. Execution of the statement will assign an improper value to the index-name.
Message List 1165