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-34
Identifying the Creator
Example 31-15. Identifying a Process’s Creator (page 1 of 2)
IDENTIFICATION DIVISION.
PROGRAM-ID. WHOA-MOM.
AUTHOR. KRIS COBOL.
INSTALLATION. TRANSACTIONS ANONYMOUS.
DATE-WRITTEN. 29 FEBRUARY 1988.
DATE-COMPILED.
*********************************************************************
* This program obtains and reports the process ID of its creator, *
* then attempts to stop its creator. *
*********************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP TXP.
OBJECT-COMPUTER. HP TXP.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MOMS-PROCESS-ID.
05 MOMS-PROCESS-NAME PIC X(6).
05 MOMS-CPU-PIN PIC S9(4) COMP.
05 CPU-PIN-REDEF REDEFINES MOMS-CPU-PIN.
10 CPU-PART PIC X.
10 PIN-PART PIC X.
01 PNAME.
05 PNAME-BYTES-1-2 PIC XX.
05 PNAME-FIRST-WORD-NUM REDEFINES PNAME-BYTES-1-2
PIC S9(3) COMP.
05 FILLER PIC X(4).
01 CPU-PIN-REWORK.
05 ALPHA-CPU.
10 CPU-HIGH-BYTE PIC X.
10 CPU-LOW-BYTE PIC X.
05 NUMERIC-CPU REDEFINES ALPHA-CPU
PIC S9(2) COMP.
05 ALPHA-PIN.
10 PIN-HIGH-BYTE PIC X.
10 PIN-LOW-BYTE PIC X.
05 NUMERIC-PIN REDEFINES ALPHA-PIN
PIC S9(3) COMP.
01 MY-CPU-PIN PIC S9(4) COMP.
01 MY-PAID PIC S9(4) COMP.
01 MOMS-CAID PIC S9(4) COMP.
01 INTERNAL-NAME PIC X(24).
01 EXTERNAL-NAME PIC X(34).
01 ERROR-RETURN PIC S9(2) VALUE ZERO.
01 DISPLAY-BUFFER PIC X(79).
PROCEDURE DIVISION.
WHO.
* -- PROCESS_GETINFO_ delivers 4-word process-id to MOMS-PROCESS-ID
ENTER TAL "PROCESS_GETINFO_"
USING MOMS-PROCESS-ID.
* -- Report MOM's process name to my home terminal
PERFORM DISPLAY-PROCESS-NAME.
* -- Take only the CPU-PIN from MOM, and ask for MOM's
* -- creator accessor id.
ENTER TAL "PROCESS_GETINFO_"
USING MOMS-CPU-PIN
OMITTED
MOMS-CAID
GIVING ERROR-RETURN.