Pathmaker Programming Guide

Specifying CALL and SEND Parameters
Creating Requesters
5–40 067868 Tandem Computers Incorporated
Figure 5-11 shows a sample of the SCREEN COBOL and COBOL code that the
Pathmaker product produces to invoke a service.
Figure 5-11. Sample SCREEN COBOL and COBOL Code for Invoking a Service
057
REQ-1
SCREEN COBOL Excerpt
Server
COBOL Excerpt
WORKING-STORAGE SECTION.
01 B-DEF
01 Z-DEF
01 K-DEF
01 L-DEF
PIC X(5).
PIC 9(8).
PIC X(3).
PIC X(7).
PROCEDURE DIVISION.
PIC X(5).
DATA DIVISION.
FILE SECTION.
FD T9154-MESSAGE-IN-FILE.
01 REQ-SERVICE-1.
02 T9154-REQUEST-HEADER.
03 T9154-REQUEST-CODE PIC 9(9).
MOVE "N" TO T9154-SEND-ERROR-SW.
SEND T9154-REQUEST-HEADER
B-DEF
TO T9154-SERVER-CLASS-NAME OF
T9154-F9-SERVICE-1-SERVICE
REPLY CODE 1 YIELDS T9154-REPLY-HEADER
Z-DEF
L-DEF
CODE 999 YIELDS T9154-REPLY-HEADER
ON ERROR
MOVE "Y" TO T9154-SEND-ERROR-SW
MOVE T9154-SERVER-CLASS-NAME OF
T9154-F9-SERVICE-1-SERVICE TO
T9154-SEND-SERVERCLASS
PERFORM 9901-GET-SEND-ERROR.
02 B-DEF
FD T9154-MESSAGE-OUT-FILE.
01 REP-SERVICE-1.
02 T9154-REPLY-HEADER.
PIC 9(8).02 F-DEF
PIC X(7).02 L-DEF
PROCEDURE DIVISION.
READ T9154-MESSAGE-IN-FILE.
IF T9154-REQUEST-CODE OF
REQ-SERVICE-1 = T9SC-SERVICE-1
PERFORM SERVICE-1.
PERFORM T9154-REPLY-TO-REQUESTER.
• • •
• • •
• • •
• • •