iTS 1.0+)

Procedure Division

Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001

6-76

SEND Statement

Sending to an External PATHMON Process

The following program example illustrates the two ways you can use the SEND

statement to access a server class controlled by an external PATHMON process

(a PATHMON process in a different PATHMON environment than that of the

requesting TCP).

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-DEFAULT-NAMES.

05 WS-DEFAULT-SERVER PIC X(15) VALUE "SERV-1".

05 WS-DEFAULT-PATHMON PIC X(5) VALUE "$PWT".

05 WS-DEFAULT-SYSTEM PIC X(8) VALUE "\TS".

01 WS-SCRN1-FIELDS.

05 WS-SERV-NAME PIC X(15) VALUE " ".

05 WS-SCRN-PATHMON PIC X(5) VALUE " ".

05 WS-SCRN-SYSTEM PIC X(8) VALUE " ".

PROCEDURE DIVISION.

SEND MSGID, EMPLOYEE-REC TO "SERV-1"

UNDER PATHWAY "$PWT"

AT SYSTEM "\TS"

REPLY CODE 1 YIELDS R-CODE, EMPLOYEE-REC

CODE 2 YIELDS R-CODE, HIRE-DATE

ON ERROR PERFORM 899-SEND-ERROR.

MOVE WS-DEFAULT-SERVER TO WS-SERV-NAME.

MOVE WS-DEFAULT-PATHMON TO WS-SCRN-PATHMON.

MOVE WS-DEFAULT-SYSTEM TO WS-SCRN-SYSTEM.

SEND MSGID, EMP-TRANSFER TO WS-SERV-NAME

UNDER PATHWAY WS-SCRN-PATHMON

AT SYSTEM WS-SCRN-SYSTEM

REPLY CODE 1 YIELDS R-CODE, EMPLOYEE-LOC

CODE 2 YIELDS R-CODE,

CODE 3 YIELDS R-CODE

ON ERROR PERFORM 899-SEND-ERROR.