COBOL Manual for TNS and TNS/R Programs

HP COBOL CRE Support
HP COBOL Manual for TNS and TNS/R Programs—522555-006
18-5
EXTERNAL Clause
EXTERNAL Clause
The EXTERNAL clause of the RECEIVE-CONTROL paragraph enables HP COBOL
external files to share communication with $RECEIVE and to share $RECEIVE
properly with FORTRAN. For more information, see RECEIVE-CONTROL Paragraph
and #RECEIVE Blocks.
MESSAGE SOURCE Clause
If you specify the MESSAGE SOURCE clause in the RECEIVE-CONTROL paragraph,
the last items in the message sender format change:
The overall data length is the same, but the process identification is different. In the
CRE, the process handle (PHANDLE) has no processor or PIN. Do not write code to
extract pieces of the process handle, because its format can change at any time. In the
Guardian environment, if you must know the values of the processor and PIN, call the
Guardian routine PROCESSHANDLE_DECOMPOSE_. For instructions on how to use
PROCESSHANDLE_DECOMPOSE_, see the Guardian Application Conversion Guide.
REPORT Clause
The message types specified in the REPORT clause are different in the non-CRE
environment and the CRE.
These old message types have been eliminated in the CRE, because they are covered
by other message types:
The CRE has many new message types and some new message type codes for old
message types. In the CRE, the message type SYSTEM includes all messages except
LOGICAL-CLOSE and LOGICAL-OPEN. For details, see Table 6-9
.
Non-CRE Environment CRE
02 PROCESS-ID.
02 PROCESS-NAME PIC X(6).
02 CPU-PIN PIC X(2).
02 FILLER PIC X(16).
02 PHANDLE PIC X(20).
02 FILLER PIC X(4).
Old Message Type Corresponding CRE Messages
ABEND PROCESS-DELETION
STOP PROCESS-DELETION
NETWORK NODE-DOWN
NODE-UP
REMOTE-CPU-DOWN
REMOTE-CPU-UP