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

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

• data-name-A
  Set VALUE 'STCONINF' as a request code for setting terminal identification information.
  
• data-name-C
  Set 0.
  
• data-name-D
  Set the length of the terminal identification information.
  
• data-name-E
  This area is used by OpenTP1.
  
• data-name-F
  Set the client ID received by CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').
  
• data-name-G
  Set terminal identification information.
  

• data-name-B
  5-digit status code
  

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

• Only if the DCCM3 version is 09-03 or later, can the DCCM3 function for allocating a fixed terminal be used by reporting terminal identification information to the DCCM3 logical terminal. For details about the function for allocating a fixed terminal, see the manual VOS3 Data Management System XDM E2 Description.
• If the DCCM3 logical terminal name corresponding to the terminal identification information defined by CBLDCCLS('STCONINF') has not been defined in DCCM3, status code 02506 is returned.