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 'GTRAPHST'. 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(9) COMP. 02 data-name-F PIC X(n).
CALL 'CBLDCCLT' USING identifier-1
01 identifier-1. 02 data-name-A PIC X(8) VALUE 'GTRAPHST'. 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(9) COMP. 02 data-name-E PIC X(n).
CBLDCCLS('GTRAPHST') acquires the host name and port number of the node to which you want to send a request to establish a permanent connection.
Before executing CBLDCCLS('STRAPHST') to specify the new destination of a request to establish a permanent connection, execute CBLDCCLS('GTRAPHST') to save the current destination.
When CBLDCCLS('GTRAPHST') is executed, the latest destination set by CBLDCCLS('STRAPHST') is returned to data-name-E. If CBLDCCLS('STRAPHST') has not been executed, the value of DCCLTRAPHOST in the client environment definition is returned to data-name-E.
Status code | Meaning |
---|---|
00000 | The program normally terminated. |
02501 | The value specified in an argument is incorrect. The request code (data-name-A) may be incorrect. |
02502 | CBLDCRPS('OPEN ') has not been executed. |
02504 | A necessary amount of buffer could not be allocated. |
02544 | The client ID specified in data-name-D differs from the one acquired by CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN '). |
All Rights Reserved. Copyright (C) 2006, 2009, Hitachi, Ltd.