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

DATA DIVISION.
FILE SECTION.
FD MSG-IN
RECORD CONTAINS 204 CHARACTERS
LABEL RECORDS ARE OMITTED
01 ORDER-MSG.
.
.
.
FD MSG-OUT
RECORD CONTAINS 36 TO 204 CHARACTERS
LABEL RECORDS ARE OMITTED
01 ORDER-REPLY.
.
.
.
01 ERROR-STATUS-REPLY.
.
.
.
FD LAST-ID
RECORD CONTAINS 12 CHARACTERS
LABEL RECORDS ARE OMITTED
01 LAST-ID-RECORD.
02 LAST-ID PIC 9(12).
.
.
.
Declares record data structures
for logical file names.
Declares data structures of
variables used by server.
WORKING STORAGE SECTION.
PROCEDURE DIVISION.
DECLARATIVES.
Declares error procedures to be
used when an I/O statement returns
an error.
Contains main program logic.
Server program begins and ends
here.
MAIN SECTION.
PERFORM START.
PERFORM PROCESS-REQUEST
UNTIL last-requester-close.
PERFORM STOP.
STOP RUN.
Contains logic that opens all
files used by server.
START SECTION.
OPEN INPUT msg-in.
OPEN OUTPUT msg-out SYNCDEPTH 1.
OPEN I/O last-id SHARED SYNCDEPTH 1.
.
.
.
Designing Server Programs 49