COBOL Manual for TNS and TNS/R Programs

Environment Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
6-65
RECEIVE-CONTROL Paragraph
EXTERNAL
can only appear in a CRE program; enables COBOL external files to share
communication with $RECEIVE and to share $RECEIVE properly with FORTRAN.
EXTERNAL causes the compiler to create a special block, #RECEIVE, which
contains the information used when $RECEIVE is opened by FORTRAN or by a
COBOL external file. The COBOL85 compiler does not generate a default
#RECEIVE block, as the FORTRAN compiler does
TABLE OCCURS phrase
establishes the length of the receive-control table, governing the maximum number
of requesters that can have this process open concurrently. In a Pathway
environment, this number can be decreased at execution time but not increased.
.
RECEIVE-CONTROL
TABLE OCCURS phrase
SYNCDEPTH LIMIT phrase
REPLY CONTAINS phrase
ERROR CODE phrase
MESSAGE SOURCE phrase
REPORT phrase
EXTERNAL
.
VST063.vsd
TABLE
table-length
OCCURS
TIMESEXTENDED-STORAGE
VST064.vsd