COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

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.
DISPLAY "I am process (" CPU "," PIN "), named " PROCESS-NAME.
PERFORM CAPTURE-ACCESSOR-IDS.
DISPLAY "My creator accessor ID is " CREATOR-EDITED.
DISPLAY "My process accessor ID is " PROCESS-EDITED.
DISPLAY "My priority is " PRIORITY.
DISPLAY "My loadfile name is " PROGRAM-FILE-NAME.
DISPLAY "My home terminal is " HOME-TERMINAL.
STOP RUN.
CAPTURE-ACCESSOR-IDS.
MOVE CREATOR-ACCESSOR-ID TO BYTE-PAIR.
MOVE LEFT-BYTE OF CONSECUTIVE-BYTES TO NUMERIC-RIGHT-BYTE.
MOVE BYTE-AS-NUMBER TO CREATOR-GROUP.
934 Process Initiation, Communication, and Management