TS/MP Pathsend and Server Programming Manual (G06.24+, H06.03+)

Designing Your Application
NonStop TS/MP Pathsend and Server Programming Manual–132500
2-26
Server Program Structure
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).
.
.
.
WORKING STORAGE SECTION.
Declares data structures of
variables used by server.
PROCEDURE DIVISION.
DECLARATIVES.
Declares error procedures to
be used when an I/O statement
returns an error.
MAIN SECTION.
Contains main program logic.
PERFORM START. Server program begins and
PERFORM PROCESS-REQUEST ends here.
UNTIL last-requester-close.
PERFORM STOP.
STOP RUN.
START SECTION.
Contains logic that opens all
OPEN INPUT msg-in. files used by server.
OPEN OUTPUT msg-out SYNCDEPTH 1.
OPEN I/O last-id SHARED SYNCDEPTH 1.
.
.
.
Example 2-2. COBOL85 Server Program Example (page 2 of 3)