COBOL Manual for TNS/E Programs (H06.08+, J06.03+)
If one is defined in an independent segment, the other must be defined in the same
independent segment.
389 (Warning or Error)
Improper SORT/MERGE scope
Cause
Warning: An INPUT PROCEDURE or OUTPUT PROCEDURE phrase specifies a range that includes
two references. One identifies a paragraph-name or section-name defined in a declarative
procedure. The other identifies a paragraph-name or section-name defined in a different
declarative procedure.
Error: One of:
• An INPUT PROCEDURE or OUTPUT PROCEDURE phrase of a SORT or MERGE statement
in an independent segment references a paragraph-name or section-name defined in a
different independent segment.
• An INPUT PROCEDURE or OUTPUT PROCEDURE phrase of a SORT or MERGE statement
specifies a range that includes two references, and they identify incompatible
paragraph-names or section-names. Either one reference is defined in the Declaratives
Portion of the Procedure Division and the other is not, or one is defined in one independent
segment and the other is defined in another independent segment.
390 (Warning)
Referenced program not found by compiler
Cause
A CALL or CANCEL statement referenced a program that the compiler could not find in the
source text or in any file on any search list. These programs must be bound into the run unit
before it is executed.
The compiler issues this warning at the point of reference to the program unit (that is, at a CALL
or CANCEL statement); however, for any given missing program, the compiler issues the warning
only at the first point of reference to that program.
391 (Error)
Improper program-name specified
Cause
One of:
• A CALL or CANCEL statement specifies the program-name of the separately compiled
program within which it appears.
• The END PROGRAM statement identifies a program that has already been terminated.
392 (Error)
Expected current program-name
Cause
The END PROGRAM statement specifies a name that does not match any program-name within
the separately compiled program.
393 (Error)
Missing END PROGRAM: xxxx
Message List 1163










