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-32
Determining the Status
PROCEDURE DIVISION.
WHATS-HAPPENING.
* Start with cpu-PIN of 0,0
MOVE LOW-VALUES TO CPU-PIN.
* Get owner's process accessor id
ENTER TAL "PROCESS_GETINFO_"
USING PROCESS-HANDLE
OMITTED
OMITTED
PRIORITY
OMITTED
HOME-TERMINAL
OMITTED
OMITTED
CREATOR-ACCESSOR-ID
PROCESS-ACCESSOR-ID
OMITTED
OMITTED
PROGRAM-FILE-NAME
OMITTED
OMITTED
GIVING ERROR-RETURN.
PERFORM EDIT-ACCESSOR-ID.
DISPLAY "CPU,PIN GRP,USR PRI loadfile "
"HOMETERM".
* Hunt through all CPUs in system
PERFORM INVESTIGATE-A-CPU
UNTIL CURRENT-CPU > 16.
STOP RUN.
INVESTIGATE-A-CPU.
ENTER TAL "PROCESS_GETINFO_"
USING PROCESS-HANDLE
OMITTED
OMITTED
PRIORITY
OMITTED
HOME-TERMINAL
OMITTED
OMITTED
CREATOR-ACCESSOR-ID
PROCESS-ACCESSOR-ID
OMITTED
OMITTED
PROGRAM-FILE-NAME
OMITTED
OMITTED
GIVING ERROR-RETURN.
IF ERROR-RETURN < 2
* Found a match
PERFORM REPORT-A-MATCH
ADD 1 TO CPU-PIN
ELSE
IF ERROR-RETURN = 2
* No more on current CPU
PERFORM INCREMENT-CPU-OR-QUIT
ELSE
IF ERROR-RETURN < 99
* CPU not configured or incommunicado
PERFORM INCREMENT-CPU-OR-QUIT
ELSE
DISPLAY "INTERNAL ERROR IN PARAMETERS"
STOP RUN.
Example 31-14. Reporting Processes With Program’s Accessor ID (page 2 of 3)