OpenTP1 Version 7 TP1/Client User's Guide TP1/Client/W, TP1/Client/P
CALL 'CBLDCCLS' USING identifier-1 identifier-2 identifier-3
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.
CALL 'CBLDCCLT' USING identifier-1 identifier-2
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.
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.
All Rights Reserved. Copyright (C) 2006, 2009, Hitachi, Ltd.