Pathway/iTS System Management Manual (G06.24+)

Source Code for Programs in Section 6
HP NonStop Pathway/iTS System Management Manual—426748-002
G-6
Source Code for Server Program
WORKING-STORAGE SECTION.
01 RECEIVE-FILE-STATUS.
02 STAT-1 PIC 9.
88 CLOSE-FROM-REQUESTOR VALUE 1.
02 STAT-2 PIC 9.
01 WS.
02 ERROR-CODE PIC 999 COMP.
PROCEDURE DIVISION.
BEGIN-COBOL-SERVER.
OPEN INPUT MESSAGE-IN.
OPEN OUTPUT MESSAGE-OUT SYNCDEPTH 1.
PERFORM B-TRANS UNTIL CLOSE-FROM-REQUESTOR.
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 999 TO REPLY-CODE OF ERROR-REPLY
MOVE ERROR-CODE OF WS TO ERROR-CODE OF ERROR-REPLY
WRITE ERROR-REPLY.
READ-MESSAGE.
IF MESSAGE-NUMBER = 0
MOVE "THIS IS MESSAGE ZERO" TO SERVER-RECORD
ELSE IF MESSAGE-NUMBER = 1
MOVE "THIS IS MESSAGE NUMBER ONE" TO SERVER-RECORD
ELSE IF MESSAGE-NUMBER = 2
MOVE "THIS IS MESSAGE NUMBER 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.
Example G-2. Source Code for the Server Program (page 2 of 2)