TS/MP Pathsend and Server Programming Manual (H06.05+, J06.03+)

Example 2 COBOL85 Server Program Example
Declares server name.IDENTIFICATION DIVISION.
PROGRAM-ID. ORDER-SERVER.
ENVIRONMENTAL DIVISION.
CONFIGURATION SECTION.
SPECIAL NAMES.
Defines source library file names.
FILE “$src.srvlib.orderlib” IS
COBOL-LIB.
FILE “$obj.srvlib.ocmgrobj” IS
COMM-MGR.
Selects logical names for $RECEIVE and
all database files accessed by
INPUT-OUTPUT SECTION.
FILE CONTROL.
server.
$RECEIVE is a Guardian file that
SELECT MSG-IN
receives and stores messages
ASSIGN TO $RECEIVE
transmitted between
requesters and servers.
FILE STATUS IS RCV-STAT IN
WS-RCV-INFO.
SELECT MSG-OUT
ASSIGN TO $RECEIVE
FILE STATUS IS RCV-STAT IN
WS-RCV-INFO.
SELECT LAST-ID
ASSIGN TO $DATA.ORDER.LASTID
ORGANIZATION IS RELATIVE
ACCESS IS SEQUENTIAL
RECORD KEY IS WS-LASTID-REL-KEY
FILE STATUS IS FILE-STAT IN
WS-FILE-INFO.
.
.
.
RECEIVE-CONTROL.
TABLE OCCURS 5 TIMES
SYNCDEPTH IS 1
Declares number of concurrent opens
and maximum size of largest request
message.
REPLY CONTAINS 204 CHARACTERS.
48 Designing Your Application