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-28
Determining the Status
You can therefore provide a mechanism for passing nonsensitive data from a file
containing both sensitive and nonsensitive data to a class of users who should not
receive the sensitive data. For more information about these security features, see the
operating environment user’s guide for your system.
In Example 31-13, an HP COBOL program uses the PROCESS_GETINFO_ routine to
discover its environment and then reports the information to its home terminal.
Example 31-13. PROCESS_GETINFO_ Routine (page1of3)
IDENTIFICATION DIVISION.
PROGRAM-ID. PROBE.
AUTHOR. TRACY COBOL.
INSTALLATION. TRANSACTIONS ANONYMOUS.
DATE-WRITTEN. 03 FEBRUARY 2000.
DATE-COMPILED. 03 FEBRUARY 2000.
******************************************************************
* This program obtains and reports its own process information *
* from PROCESSINFO. *
******************************************************************
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.
05 FILLER PIC X(4).
01 BYTE-PAIR PIC S9(4) COMP.
01 CONSECUTIVE-BYTES REDEFINES BYTE-PAIR.
05 LEFT-BYTE PIC X.
05 RIGHT-BYTE PIC X.
01 BYTE-AS-NUMBER PIC S9(4) COMP.
01 BYTE-TO-NUMERIC REDEFINES BYTE-AS-NUMBER.
05 NUMERIC-LEFT-BYTE PIC X.
05 NUMERIC-RIGHT-BYTE PIC X.
01 CREATOR-ACCESSOR-ID PIC S9(4) COMP.
01 PROCESS-ACCESSOR-ID PIC S9(4) COMP.
01 CREATOR-EDITED.
05 FILLER PIC X(6) VALUE "Group ".
05 CREATOR-GROUP PIC ZZ9.
05 FILLER PIC X(9) VALUE ", Member ".
05 CREATOR-MEMBER PIC ZZ9.
01 PROCESS-EDITED.
05 FILLER PIC X(6) VALUE "Group ".
05 PROCESS-GROUP PIC ZZ9.
05 FILLER PIC X(9) VALUE ", Member ".
05 PROCESS-MEMBER PIC ZZ9.
01 PRIORITY PIC S9(3) COMP.
01 PROGRAM-FILE-NAME PIC X(36).
01 PROGRAM-FILE-NAME-LEN NATIVE-2.
01 HOME-TERMINAL PIC X(24).
01 HOME-TERMINAL-LEN NATIVE-2.
01 ERROR-RETURN PIC S9(2) VALUE ZERO.
01 PROCESS-NAME PIC X(8).
01 PROCESS-NAME-LEN NATIVE-2.