Guardian Application Conversion Guide

Opening and Communicating With a High-PIN Server
Converting COBOL85 Applications
096047 Tandem Computers Incorporated 4–21
The MESSAGE SOURCE Clause. If your existing program receives system messages, the
MESSAGE SOURCE clause in the RECEIVE-CONTROL paragraph identifies the
process that sent the message. The C-series MESSAGE SOURCE clause uses a process
ID to identify the sender process:
* C-series receive-control table.
RECEIVE-CONTROL.
TABLE OCCURS 1 TIMES
SYNCDEPTH LIMIT IS 1
MESSAGE SOURCE IS MESSAGE-SENDER.
...
01 MESSAGE-SENDER.
05 SYSTEM-FLAG PIC S9 COMPUTATIONAL.
05 ENTRY-NUMBER PIC 999 COMPUTATIONAL.
05 FILLER PIC X(4).
05 PROCESS-ID.
10 PROCESS-NAME PIC X(6).
10 CPU-PIN PIC S9(2) COMPUTATIONAL.
05 FILLER PIC X(16).
Convert your existing program to identify the sender process using a process handle
rather than a process ID:
* D-series receive-control table.
RECEIVE-CONTROL.
TABLE OCCURS 1 TIMES
SYNCDEPTH LIMIT IS 1
MESSAGE SOURCE IS MESSAGE-SENDER.
...
01 MESSAGE-SENDER.
05 SYSTEM-FLAG PIC S9 COMPUTATIONAL.
05 ENTRY-NUMBER PIC 999 COMPUTATIONAL.
05 FILLER PIC X(4).
05 MSG-SOURCE PIC X(20).
05 FILLER PIC X(4).
After conversion, the overall length of the MESSAGE SOURCE data item is the same
(32 characters), but the process-handle declaration replaces the process-ID declaration.
If you need values from the process-handle data item (for example, the CPU and PIN
values), use the PROCESSHANDLE_DECOMPOSE_ procedure.