COBOL Manual for TNS and TNS/R Programs

Program Compilation
HP COBOL Manual for TNS and TNS/R Programs—522555-006
11-25
Compiler Output
If an internal file opens $RECEIVE, the values of the #RECEIVE arguments depend on
whether the program that describes the internal file has a RECEIVE-CONTROL
paragraph. If so, the #RECEIVE block associated with the program’s RECEIVE-
CONTROL paragraph is used as the internal file’s #RECEIVE block (even in a TNS
program whose RECEIVE-CONTROL paragraph is EXTERNAL). If the program does
not have a RECEIVE-CONTROL paragraph, the #RECEIVE arguments have these
default values:
If an external file opens $RECEIVE, its #RECEIVE block is the one associated with the
run unit, if one exists; otherwise, the #RECEIVE arguments have the default values.
When sharing $RECEIVE, be aware that:
•
If one opener requests system messages and another does not, the one that does
not might get them anyway.
•
The ERROR CODE and MESSAGE SOURCE phrases of the RECEIVE-
CONTROL paragraph are always local to the program unit. They apply to all READ
and WRITE requests in that program unit, even if $RECEIVE was opened in
another program unit.
•
Opening a file that references $RECEIVE uses the #RECEIVE arguments
specified by the program that contains the OPEN statement, even if the file is
EXTERNAL. If the file is EXTERNAL, the ERROR CODE and MESSAGE
SOURCE clauses of the RECEIVE-CONTROL paragraph in other programs are
ignored.
Compiler Output
The output of a compilation can include a listing (to an existing file or spooler) and an
object file, but it always includes compilation statistics and a completion code. You can
manipulate the object file.
#RECEIVE Argument Default Value
TABLE OCCURS 1
SYNCDEPTH 1
REPLY CONTAINS 0
REPORT None
QUEUE DEPTH 1