OpenTP1 Version 7 TP1/Client User's Guide TP1/Client/W, TP1/Client/P

[Contents][Index][Back][Next]

6.4.4 CBLDCCLS('GTRAPHST') - Acquire the destination of a request to establish a permanent connection

Organization of this subsection
(1) Form
(2) Purpose
(3) Data area where the UAP sets values
(4) Data area for which a value is returned
(5) Status codes

(1) Form

(a) In a multi-thread environment
PROCEDURE DIVISION
 
CALL 'CBLDCCLS' USING identifier-1
 
DATA DIVISION
 
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).
 
(b) In a single-thread environment
PROCEDURE DIVISION
 
CALL 'CBLDCCLT' USING identifier-1
 
DATA DIVISION
 
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).
 

(2) Purpose

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.

(3) Data area where the UAP sets values

(4) Data area for which a value is returned

(5) Status codes

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 ').