COBOL Manual for TNS and TNS/R Programs

Process Initiation, Communication, and
Management
HP COBOL Manual for TNS and TNS/R Programs—522555-006
31-24
Identifying the Message Source
Identifying the Message Source
To enable your process to determine the source of any message it receives, include a
MESSAGE SOURCE clause in the program’s RECEIVE-CONTROL paragraph. This
causes the HP COBOL run-time routines to automatically update the data item
designated in the MESSAGE SOURCE clause at every successful READ on
$RECEIVE.
*************************************************************
* This program obtains and reports its own system number *
* and system name. *
*************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP TXP.
OBJECT-COMPUTER. HP TXP.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PROCESS-HANDLE PIC X(20).
01 CPU-PIN.
05 CPU NATIVE-2.
05 PIN NATIVE-2.
01 ERROR-NUMBER PIC S9(5) COMP.
01 SYSTEM-NAME PIC X(8).
01 SYSTEM-NUMBER NATIVE-2.
01 SYSTEM-NAME-LENGTH NATIVE-2.
PROCEDURE DIVISION.
WHERE-AM-I.
ENTER TAL "PROCESSHANDLE_GETMINE_"
USING PROCESS-HANDLE
GIVING ERROR-NUMBER.
ENTER TAL "PROCESSHANDLE_DECOMPOSE_"
USING PROCESS-HANDLE
CPU
PIN
GIVING ERROR-NUMBER.
ENTER TAL "NODENUMBER_TO_NODENAME_"
USING OMITTED
SYSTEM-NAME
SYSTEM-NAME-LENGTH
GIVING ERROR-NUMBER.
DISPLAY "I'm executing on system #"
SYSTEM-NUMBER
", named """
SYSTEM-NAME
"""".
STOP RUN.
Example 31-11. Determining a Process’s Node (System Number) (page 2 of 2)