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-29
Determining the Status
PROCEDURE DIVISION.
WHO.
MOVE ZERO TO BYTE-AS-NUMBER.
ENTER TAL "PROCESSHANDLE_GETMINE_"
USING PROCESS-HANDLE
GIVING ERROR-RETURN.
ENTER TAL "PROCESS_GETINFO_"
* processhandle
USING PROCESS-HANDLE
* proc-fname
OMITTED
* proc-fname-len
OMITTED
* priority
PRIORITY
* moms-processhandle
OMITTED
* hometerm
HOME-TERMINAL
* hometerm-len
HOME-TERMINAL-LEN
* process-time
OMITTED
* creator-access-id
CREATOR-ACCESSOR-ID
* process-access-id
PROCESS-ACCESSOR-ID
* gmoms-processhandle
OMITTED
* jobid
OMITTED
* program-file
PROGRAM-FILE-NAME
* program-len
PROGRAM-FILE-NAME-LEN
* ... rest of params not used in this example
GIVING ERROR-RETURN.
IF ERROR-RETURN = 0
PERFORM EXPLAIN-MYSELF
ELSE
DISPLAY "PROCESS_GETINFO_ returned an error code of " ERROR-RETURN
.
STOP RUN.
EXPLAIN-MYSELF.
MOVE SPACES TO PROCESS-NAME.
ENTER TAL "PROCESSHANDLE_DECOMPOSE_"
USING PROCESS-HANDLE
CPU
PIN
* No node number
OMITTED
* No node name
OMITTED
* No nodename length
OMITTED
PROCESS-NAME
PROCESS-NAME-LEN
GIVING ERROR-RETURN.
Example 31-13. PROCESS_GETINFO_ Routine (page2of3)