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-31
Determining the Status
Example 31-14. Reporting Processes With Program’s Accessor ID (page 1 of 3)
IDENTIFICATION DIVISION.
PROGRAM-ID. WHAT-AM-I-DOING.
AUTHOR. BRINDLEY COBOL.
INSTALLATION. TRANSACTIONS ANONYMOUS.
DATE-WRITTEN. 29 FEBRUARY 1988.
DATE-COMPILED.
*****************************************************************
* This program hunts out and reports all processes owned by *
* the current user. *
*****************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP TXP.
OBJECT-COMPUTER. HP TXP.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PROCESS-HANDLE PIC X(20).
01 CPU-PIN.
05 CPU PIC S9(2) COMPUTATIONAL.
05 PIN NATIVE-2.
01 ERROR-NUMBER PIC S9(5) COMPUTATIONAL.
01 NULL-PH PIC X(20) VALUE ALL HIGH-VALUES.
01 NUMERIC-CPU PIC S9(2) COMPUTATIONAL.
01 NUMERIC-PIN NATIVE-2.
01 BYTE-PAIR PIC S9(4) COMP.
01 CONSECUTIVE-BYTES REDEFINES BYTE-PAIR.
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).