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

05 LEFT-BYTE PIC X.
05 RIGHT-BYTE PIC X.
01 SEPARATED-BYTES.
05 LEFT-BYTE.
10 LEFT-HIGH-BYTE PIC X.
10 LEFT-LOW-BYTE PIC X.
05 NUMERIC-LEFT-BYTE PIC S9(2) COMP REDEFINES LEFT-BYTE.
05 RIGHT-BYTE.
10 RIGHT-HIGH-BYTE PIC X.
10 RIGHT-LOW-BYTE PIC X.
05 NUMERIC-RIGHT-BYTE PIC S9(2) COMP REDEFINES RIGHT-BYTE.
01 PROCESS-ACCESSOR-ID PIC S9(4) COMP.
01 PROCESS-EDITED.
05 PROCESS-GROUP PIC ZZ9.
05 FILLER PIC X(1) VALUE ",".
05 PROCESS-MEMBER PIC 999.
01 CREATOR-ACCESSOR-ID PIC S9(4) COMP.
01 PRIORITY PIC S9(3) COMP.
01 PROGRAM-FILE-NAME PIC X(34).
01 HOME-TERMINAL PIC X(34).
01 ERROR-RETURN PIC S9(2) VALUE ZERO.
01 MASQUE PIC S9(4) COMP VALUE 8192.
* Bits: 0010 0000 0000 0000
* to request match on process accessor id.
01 CURRENT-CPU PIC S9(4) COMP VALUE 0.
01 BINARY-WORKTABLE PIC S9(4) COMP.
01 INTERNAL-NAME PIC X(24).
01 EXTERNAL-NAME PIC X(34).
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
936 Process Initiation, Communication, and Management