OpenTP1 Version 7 TP1/Client User's Guide TP1/Client/W, TP1/Client/P
CALL 'CBLDCCLS' USING identifier-1
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).
CALL 'CBLDCCLT' USING identifier-1
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).
Sends messages to the MHP.
Before executing CBLDCCLS('SEND '), execute or CBLDCRPS('OPEN ') by specifying 4 or 16 for data-name-C.
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. |
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.