Guardian Application Conversion Guide

Opening and Communicating With a High-PIN Server
Converting COBOL85 Applications
096047 Tandem Computers Incorporated 4–17
Opening and Communicating With a High-PIN Server
To use the D-series enhanced interface for opening and communicating with a high-
PIN server, you simply need to recompile your COBOL85 program using the CRE.
See “Selecting the Common Run-Time Environment (CRE)” earlier in this section for
details on how to compile with the CRE.
Monitoring a High-PIN Server
If your requester program monitors a server, then it must read and handle process-
deletion and status-change messages. To do so for a high-PIN server, your program
must:
Declare a read buffer large enough for D-series enhanced system messages.
Check for and process the new D-series process-deletion and status change
messages.
The following paragraphs describe these operations.
Once again, to receive the D-series system messages, your program must be
recompiled with the CRE.
Opening and Reading $RECEIVE
You might need to convert the part of your program that opens and reads $RECEIVE
as follows:
1. Your OPEN statement for $RECEIVE should not require any changes.
2. When you read a D-series message from $RECEIVE using the READ statement,
use a message record area that is at least 256 characters in length.
The ZSYSCOB file contains a data structure for each system message. Because
each system-message data structure is in a separate section of ZSYSCOB, you can
copy only the data structures for the messages you actually read.
3. If necessary, modify the parts of your program that process each system message.
Refer to Table 4-2 for the D-series system messages that supersede C-series system
messages.
4. Your CLOSE statement for $RECEIVE should not require any changes.
Converting the RECEIVE-CONTROL Paragraph
The RECEIVE-CONTROL paragraph allows a program to read system messages by
defining the receive-control and reply tables. The parts of the RECEIVE-CONTROL
paragraph that you might need to convert are:
The REPORT clause, which specifies the system messages a program reads from
$RECEIVE
The MESSAGE SOURCE clause, which identifies the process that sent a system
message