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

PHONE-BOOK.
B-TRANS.
READ MESSAGE-IN.
* Declarative handles EOF
IF RECEIVE-FILE-STATUS = "00"
IF NAME-LOOKUP OF MESSAGE-IN
PERFORM B-01-NAME-LOOKUP-PROC
ELSE
IF PHONE-LOOKUP OF MESSAGE-IN
PERFORM B-01-PHONE-LOOKUP-PROC
ELSE
MOVE SPACES TO PHONE-REPLY-MSG
MOVE BAD-REQUEST-REPLY TO BAD-REPLY-CODE OF MESSAGE-OUT
...
IF RECEIVE-FILE-STATUS = "00"
WRITE PHONE-REPLY-MSG
ELSE
WRITE BAD-REPLY-MSG.
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.
More information:
SourcesTopics
TS/MP Pathsend and Server Programming ManualProgramming servers and Pathsend requesters in the
Pathway environment
Pathway/TS TCP and Terminal Programming GuideProgramming SCREEN COBOL requesters in the Pathway
environment
TS/MP System Management ManualConfiguring and managing servers in the Pathway
environment
928 Process Initiation, Communication, and Management