Pathway/iTS SCREEN COBOL Reference Manual (H06.10+, J06.03+)

Procedure Division

HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003

6-104

SEND Statement

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.

These messages contain explanations for the error numbers in the TERMINATION-

STATUS special register.

Termination Status Error Messages of PATHTCP3

TERMINATION-STATUS 1

Cause. The server class to which the message is directed is frozen.

Action Without ON ERROR Clause. The system waits until the server class is

thawed by execution of a PATHCOM THAW SERVER command, then continues with

the processing of the SEND statement.

TERMINATION-STATUS 2

Cause. A free server class control block cannot be found. You should increase the

value of the TCP configuration parameter MAXSERVERCLASSES.

Action Without ON ERROR Clause. The system waits until the resource is available,

then continues with the processing of the SEND statement.

TERMINATION-STATUS 3

Cause. A free server process control block cannot be found. You should increase the

value of the TCP configuration parameter MAXSERVERPROCESSES.

SERVER CLASS FROZEN

RESOURCE UNAVAILABLE