COBOL Manual for TNS/E Programs (H06.08+, J06.03+)
Cause
No END PROGRAM statement appeared for the contained program whose program-name is
xxxx.
395 (Error)
More than one implicit MAIN program
Cause
Both the current COBOL program and a preceding one qualify for the MAIN attribute. Because
the compiler cannot determine which one should be the main program, it does not produce an
object file.
396 (Warning)
Condition-name has too many values to be referenced by INSPECT
Cause
A condition-name has more values than the compiler can send to the Inspect debugger. The
compiler sends only the first value. To make all of the values available to the Inspect debugger,
replace the condition-name with several condition names, each with a less demanding VALUE
clause, and reference all of them wherever the original condition-name is currently referenced.
397 (Error)
Program data space overflow
Cause
The data items defined in the File and Working-Storage Sections of a source program need
more program data space than is available for the entire run unit.
398 (Error)
Program extended data space overflow
Cause
The data items defined in the Extended-Storage Section of a source program need more program
extended data space than is available for the entire run unit.
399 (Error)
Program control space overflow
Cause
The objects defined in a source program need more run-time program control space than is
available for the entire run unit.
400 (Error)
Program code exceeds 65500 words
Cause
The object code generated for a separately compiled program exceeds 131 KB, which is the
maximum size supported.
Recovery
Recompile the program without the CHECK directive and with the NOBLANK and LESS-CODE 1
directives. If error 400 still occurs, change the source program:
• Remove unused code.
• Break the program into two or more compilation units (see Compilation Units (page 514)).
1164 Compiler Diagnostic Messages










