(a) In a multi-thread environment

PROCEDURE DIVISION

 
CALL 'CBLDCRPC' USING identifier-1
 

DATA DIVISION

 
01 identifier-1.
   02 data-name-A PIC X(8)  VALUE 'OPEN   '.
   02 data-name-B PIC X(5).
   02 FILLER     PIC X(3).
   02 data-name-C PIC S9(9) COMP VALUE ZERO.
 

(b) In a single-thread environment

PROCEDURE DIVISION

 
CALL 'CBLDCRPS' USING identifier-1 identifier-2 identifier-3
 

DATA DIVISION

 
01 identifier-1.
   02 data-name-A PIC X(8)  VALUE 'OPEN   '.
   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.
01 identifier-2.
   02 FILLER     PIC X(1).
01 identifier-3.
   02 FILLER     PIC X(1).
 

Initializes the environment for calling the OpenTP1 SPP or using the TCP/IP communication facility.

Always execute CBLDCRPS('OPEN ') before executing any RPC program or transaction control program.

• data-name-A
  Set VALUE 'OPEN ' as a request code for starting the UAP.
  
• data-name-C
  Specify the environment to be initialized. You can specify one of the following environments:
  0: Environment for calling the SPP
  4: Environment for sending one-way messages
  8: Environment for receiving one-way messages
  16: Environment for sending and receiving messages
  Specify 4, 8, or 16 to use the TCP/IP communication facility. The RPC facility is also available, when you specify 4, 8, or 16.
  
• data-name-D
  Specify the client ID received with CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').
  

• data-name-B
  5-digit status code.
  

Status code	Meaning
00000	Normal termination
02401	Invalid value for the data name. The request code (data-name-A) may be invalid.
02402	CBLDCRPS('OPEN ') has already been executed.
02403	One of the following errors occurs. Initialization failed. No user authentication is performed. The client environment definition is specified invalidly.
02415	OpenTP1 is inactive for the node corresponding to the specified service.
02447	The specified port number is in use.
02544	The client ID specified for data-name-D differs from the one received with CBLDCCLS('CLTIN') or CBLDCCLS('EXCLTIN ').

• Just after you execute CBLDCRPS('CLOSE '), you cannot execute CBLDCRPS('OPEN ') whose data-name-C is 8 under the following condition.
  After execution of CBLDCRPS('OPEN ') whose data-name-C is 8, CBLDCCLS('RECEIVE ') is executed to receive messages. Before the remote system releases the connection, the CUP releases it by executing CBLDCRPS('CLOSE ').
  

In this case, wait 15 to 20 seconds, then execute CBLDCRPS('OPEN ').