(a) In a multi-thread environment

PROCEDURE DIVISION

 
CALL 'CBLDCCLS' USING identifier-1 identifier-2 identifier-3
 

DATA DIVISION

 
01 identifier-1.
   02 data-name-A PIC X(8)  VALUE 'EXSEND  '.
   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(4) COMP.
   02 FILLER     PIC X(2).
   02 data-name-E PIC X(n).
01 identifier-2.
   02 data-name-F PIC S9(9) COMP.
   02 data-name-G PIC X(n).
01 identifier-3.
   02 data-name-H PIC 9(9) COMP.
 

(b) In a single-thread environment

PROCEDURE DIVISION

 
CALL 'CBLDCCLT' USING identifier-1 identifier-2
 

DATA DIVISION

 
01 identifier-1.
   02 data-name-A PIC X(8)  VALUE 'EXSEND  '.
   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 9(4) COMP.
   02 FILLER     PIC X(2).
   02 data-name-E PIC X(n).
01 identifier-2.
   02 data-name-F PIC S9(9) COMP.
   02 data-name-G PIC X(n).
 

Sends messages to the MHP.

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

Use this function when using the host name extension function.

• data-name-A
  Set VALUE 'EXSEND ' as a request code for sending a messages.
  
• data-name-C
  Specify whether to release the connection after sending a message.
  0: Does not release the connection after sending message.
  1: Releases the connection after sending message.
  Except error situations, specifying 0 maintains the connection until you execute CBLDCRPS('CLOSE ').
  
• data-name-D
  Specify the port number of the node to be connected by establishing a connection when no connection is established.
  Specifying 0 references the contents of DCSNDPORT in the client environment definition which are saved when CBLDCRPS('OPEN ') is executed.
  
• data-name-E
  Specify the host name of the node to be connected when no connection is established. You can specify a maximum of 63^# characters for the host name. Terminate the character string with a blank.
  Placing a space character at the beginning of the character string references the contents of DCSNDHOST in the client environment definition which are saved when CBLDCRPS('OPEN ') is executed.
  You can specify an IP address in decimal dot notation for the host name.
  

  # If you specify 00000008 for DCCLTOPTION in the client environment definition, you can specify a maximum of 255 characters for the host name.

• data-name-F
  Set the length of a message to be sent.
  
• data-name-G
  Specify the area for containing the message to be sent. This area must be larger than the length specified for data-name-F.
  
• data-name-H
  Specify the client ID received with CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').
  

• data-name-B
  5-digit status code.
  

Status code	Meaning
00000	Normal termination
02501	Invalid value for the data name. The request code (data-name-A) may be invalid.
02502	Possible causes are as follows: CBLDCRPS('OPEN ') has not been executed. CBLDCRPS('OPEN ') has been 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	The host name is incorrect. Alternatively, no host name is specified for data-name-E or 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.

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.