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-35
Monitoring Descendants’ Completion
Monitoring Descendants’ Completion
The operating environment always sends messages about descendant processes to
parent processes. If your process starts another process, it might need to determine
whether the process ran to normal completion or terminated abnormally.
IF ERROR-RETURN NOT = 0
DISPLAY "Call to PROCESS_GETINFO_ returned an error code of "
ERROR-RETURN
STOP RUN.
* -- Get my process accessor id
ENTER TAL "PROCESS_GETINFO_"
USING PROCESS-HANDLE
OMITTED
OMITTED
OMITTED
OMITTED
OMITTED
OMITTED
OMITTED
MOMS-CAID
MY-PAID
OMITTED
OMITTED
OMITTED
OMITTED
OMITTED
OMITTED
GIVING ERROR-RETURN.
IF ERROR-RETURN NOT = 0
DISPLAY "Call to PROCESS_GETINFO_ returned an error code of "
ERROR-RETURN
STOP RUN.
* -- If my process accessor id matches MOM's creator accessor id, I can
* -- stop MOM before continuing
IF MY-PAID = MOMS-CAID
ENTER TAL "PROCESS_STOP_" USING MOMS-PROCESS-ID.
* ...
STOP RUN.
DISPLAY-PROCESS-NAME.
MOVE MOMS-PROCESS-NAME TO PNAME.
IF PNAME-FIRST-WORD-NUM < 0
MOVE MOMS-PROCESS-ID TO INTERNAL-NAME
DISPLAY "My creator is ("
NUMERIC-CPU "," NUMERIC-PIN ")-----"
MOMS-PROCESS-NAME
...
CAPTURE-CPU-PIN.
MOVE CPU-PART TO CPU-LOW-BYTE.
MOVE LOW-VALUES TO CPU-HIGH-BYTE.
MOVE PIN-PART TO PIN-LOW-BYTE.
MOVE LOW-VALUES TO PIN-HIGH-BYTE.
Example 31-15. Identifying a Process’s Creator (page 2 of 2)