OpenTP1 Version 7 TP1/Client User's Guide TP1/Client/W, TP1/Client/P

[Contents][Index][Back][Next]

6.6.1 CBLDCCLS('SEND ') - Sending messages

Organization of this subsection
(1) Form
(2) Purpose
(3) Data area where the UAP sets values
(4) Data area for which a value is returned
(5) Status codes
(6) Note

(1) Form

(a) In a multi-thread environment
PROCEDURE DIVISION
 
CALL 'CBLDCCLS' USING identifier-1
 
DATA DIVISION
 
01 identifier-1.
   02 data-name-A  PIC X(8)  VALUE 'SEND   '.
   02 data-name-B  PIC X(5).
   02 FILLER      PIC X(3).
   02 data-name-C PIC S9(9) COMP VALUE ZERO.
   02 data-name-D PIC S9(9) COMP.
   02 data-name-E PIC X(64).
   02 data-name-F PIC 9(4) COMP.
   02 FILLER     PIC X(2).
   02 data-name-H PIC 9(9) COMP.
   02 data-name-I PIC X(n).
 
(b) In a single-thread environment
PROCEDURE DIVISION
 
CALL 'CBLDCCLT' USING identifier-1
 
DATA DIVISION
 
01 identifier-1.
   02 data-name-A PIC X(8)  VALUE 'SEND   '.
   02 data-name-B PIC X(5).
   02 FILLER     PIC X(3).
   02 data-name-C PIC S9(9) COMP VALUE ZERO.
   02 data-name-D PIC S9(9) COMP.
   02 data-name-E PIC X(64).
   02 data-name-F PIC 9(4) COMP.
   02 FILLER     PIC X(2).
   02 data-name-G PIC 9(9) COMP.
   02 data-name-I PIC X(n).
 

(2) Purpose

Sends messages to the MHP.

Before executing CBLDCCLS('SEND '), execute or CBLDCRPS('OPEN ') by specifying 4 or 16 for data-name-C.

(3) Data area where the UAP sets values

(4) Data area for which a value is returned

(5) Status codes

Status code Meaning
00000 Normal termination
02501 Invalid value for the data name. The request code (data-name-A) may be invalid.
02502 Neither CBLDCRPS('OPEN ') is executed. Alternately, it is executed but 4 or 16 is not specified for data-name-C.
02504 Insufficient memory
02506 Network error
02507 A request for connection establishment timed out.
02518 System error
02538 Insufficient resource
02539 Incorrect host computer name. Alternatively, no host computer name is specified for data-name-E and DCSNDHOST.
02541 A request to establish the connection to the remote system was rejected.
02544 The client ID specified for data-name-H differs from the one received with CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').
02547 Port numbers that can be assigned automatically by the operating system are insufficient.

(6) Note

If the remote system releases the connection when this statement sends a message to the remote system, depending on the length of the message, the statement might not be able to detect that the connection has been released. However, a subsequent request statement might detect it. Keep this in mind when you create a CUP.