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

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 311, an HP COBOL program uses the PROCESS_GETINFO_ routine to discover its
environment and then reports the information to its home terminal.
Example 311 PROCESS_GETINFO_ Routine
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.
PROCEDURE DIVISION.
WHO.
MOVE ZERO TO BYTE-AS-NUMBER.
ENTER TAL "PROCESSHANDLE_GETMINE_"
USING PROCESS-HANDLE
Managing a Process 933