NET/MASTER Network Control Language (NCL) Programmer's Guide

Working With Server Classes
Working With Pathway Server Classes
15–28 106160 Tandem Computers Incorporated
PROCEDURE DIVISION.
BEGIN-COBOL-SERVER.
OPEN INPUT MESSAGE-IN.
OPEN OUTPUT MESSAGE-OUT SYNCDEPTH 1.
PERFORM B-TRANS UNTIL CLOSE-FROM-REQUESTER.
STOP RUN.
B-TRANS.
READ MESSAGE-IN, AT END STOP RUN.
MOVE PW-HEADER OF MESSAGE-IN TO PW-HEADER OF MESSAGE-OUT.
MOVE 0 TO ERROR-CODE OF WS.
IF FUNCTION-CODE = "01"
PERFORM READ-MESSAGE
ELSE
PERFORM FUNCTION-NOT-SUPPORTED.
IF ERROR-CODE OF WS = 0
MOVE 0 TO REPLY-CODE OF ENTRY-REPLY
WRITE ENTRY-REPLY
ELSE
MOVE "FUNCTION CODE ERROR" TO SERVER-RECORD
MOVE ERROR-CODE OF WS TO REPLY-CODE OF ENTRY-REPLY
WRITE ENTRY-REPLY.
READ-MESSAGE.
IF MESSAGE-NUMBER = 0
MOVE "ZERO ZERO ZERO ZERO" TO SERVER-RECORD
ELSE IF MESSAGE-NUMBER = 1
MOVE "ONE ONE ONE ONE ONE" TO SERVER-RECORD
ELSE IF MESSAGE-NUMBER = 2
MOVE "TWO TWO TWO TWO TWO" TO SERVER-RECORD
ELSE
PERFORM INVALID-MESSAGE-NUMBER.
FUNCTION-NOT-SUPPORTED.
MOVE 1 TO ERROR-CODE OF WS.
INVALID-MESSAGE-NUMBER.
MOVE 2 TO ERROR-CODE OF WS.
The server program is designed to receive a request message from a PATHSEND
requester, which is described by the ENTRY-MSG data structure, and to send a
reply message to the PATHSEND requester, which is described by the ENTRY-
REPLY data structure.
6. Compile the COBOL server program using the following command:
COBOL85 /IN ZEX15012/ ZEX15013
This command directs the object code output to a file named ZEX15013 in the
current subvolume.