Guardian Application Conversion Guide

Converting a COBOL85 Program to Run at a High PIN
Converting COBOL85 Applications
4–12 096047 Tandem Computers Incorporated
Converting MYPID
Procedure Calls
Your existing program might call the MYPID Guardian procedure using the ENTER
statement to obtain its CPU and PIN values:
WORKING-STORAGE SECTION.
01 CPU-PIN PIC S9(5) COMPUTATIONAL.
...
PROCEDURE DIVISION.
...
ENTER TAL "MYPID" GIVING CPU-PIN
If a high-PIN process calls MYPID, a trap condition occurs. Convert MYPID
procedure calls into PROCESSHANDLE_DECOMPOSE_ procedure calls.
The PROCESSHANDLE_DECOMPOSE_ procedure requires a process handle as an
input parameter. If you do not know the process handle of your process, first call the
PROCESSHANDLE_GETMINE__ procedure. Then pass the results to
PROCESSHANDLE_DECOMPOSE_ , which returns the CPU and PIN values as
separate integer values. For example:
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.
...
PROCEDURE DIVISION.
...
ENTER TAL "PROCESSHANDLE_GETMINE_"
USING PROCESS-HANDLE
GIVING ERROR-NUMBER
ENTER TAL "PROCESSHANDLE_DECOMPOSE_"
USING PROCESS-HANDLE
CPU
PIN
GIVING ERROR-NUMBER