COBOL Manual for TNS/E Programs (H06.03+)

Process Initiation, Communication, and
Management
HP COBOL Manual for TNS/E Programs—520347-003
31-19
Simple Server Example
More information:
B-01-NAME-LOOKUP-PROC.
MOVE LOOKUP-NAME OF MESSAGE-IN TO PH-EMPLOYEE-NAME
START PHONE-BOOK KEY IS = PH-EMPLOYEE-NAME.
IF NOT PHONE-FILE-OK
MOVE START-FAILED-REPLY TO REPLY-CODE OF MESSAGE-OUT
ELSE
READ PHONE-BOOK
IF PHONE-FILE-OK
PERFORM B-02-COPY-TO-REPLY
ELSE
MOVE NONE-FOUND-REPLY TO REPLY-CODE OF MESSAGE-OUT
...
B-01-PHONE-LOOKUP-PROC.
MOVE LOOKUP-NUM OF MESSAGE-IN TO PH-EMPLOYEE-PHONE-NUM.
START PHONE-BOOK KEY IS = PH-EMPLOYEE-PHONE-NUM.
IF NOT PHONE-FILE-OK
MOVE NONE-FOUND-REPLY TO REPLY-CODE OF MESSAGE-OUT
ELSE
READ PHONE-BOOK
IF PHONE-FILE-OK
PERFORM B-02-COPY-TO-REPLY
ELSE
MOVE NONE-FOUND-REPLY TO REPLY-CODE OF MESSAGE-OUT
...
B-02-COPY-TO-REPLY.
MOVE PH-EMPLOYEE-PHONE-NUM TO LOOKUP-NUM OF MESSAGE-OUT.
MOVE PH-EMPLOYEE-NAME TO LOOKUP-NAME OF MESSAGE-OUT.
MOVE OK-REPLY TO REPLY-CODE OF MESSAGE-OUT.
Topics Sources
Programming servers and Pathsend
requesters in the Pathway
environment
TS/MP Pathsend and Server Programming Manual
Programming SCREEN COBOL
requesters in the Pathway
environment
Pathway/TS TCP and Terminal Programming Guide
Configuring and managing servers in
the Pathway environment
TS/MP System Management Manual
Example 31-8. Simple Server (page 4 of 4)