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 'STCONINF'. 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-F PIC 9(9) COMP. 02 data-name-G PIC X(n).
CALL 'CBLDCCLT' USING identifier-1
01 identifier-1. 02 data-name-A PIC X(8) VALUE 'STCONINF'. 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 9(9) COMP. 02 data-name-G PIC X(n).
CBLDCCLS('STCONINF') dynamically sets terminal identification information.
When TP1/Client communicates with a DCCM3 logical terminal over a permanent connection, the DCCM3 function for allocating a fixed terminal can be used provided terminal identification information is reported to the DCCM3 logical terminal.
The terminal identification information is set in data-name-G of this request code. However, the setting takes effect only when the host name and port number of the DCCM3 logical terminal are specified for DCCLTRAPHOST in the client environment definition, and 0 is specified in data-name-C of the CBLDCCLS('CONNECT ') statement. The CBLDCCLS('CONNECT ') statement executed after this request code references the terminal identification information, and reports the information to the DCCM3 logical terminal.
When this request code is executed, the terminal identification information specified for DCCLTCONNECTINF in the client environment definition is not referenced until CBLDCRPS('OPEN ') is executed again.
If this request code is executed more than once, the terminal identification information specified immediately before execution of CBLDCCLS('CONNECT ') takes effect.
Status code | Meaning |
---|---|
00000 | Normal termination |
02501 | Invalid value for the data name. The request code (data-name-A) may be invalid. |
02502 | CBLDCRPS('OPEN ') has not been issued. |
02504 | A necessary amount of buffer could not be allocated. |
02544 | The client ID specified in data-name-F is different from the client ID received by CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN '). |
All Rights Reserved. Copyright (C) 2006, 2009, Hitachi, Ltd.