(a) In a multi-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 'CLOSE  '.
   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).
 

(b) In a single-thread environment

PROCEDURE DIVISION

 
CALL 'CBLDCRPC' USING identifier-1
 

DATA DIVISION

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

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

When executed, CBLDCRPS('CLOSE ') must be paired with CBLDCRPS('OPEN '). The following programs are available after execution of CBLDCRPS('CLOSE ').

• CBLDCRPS('OPEN ')
• CBLDCCLS('CLTOUT ')

• data-name-A
  Set VALUE 'CLOSE ' as the request code for indicating termination of the UAP.
  
• data-name-C
  Set 0.
  
• 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	The request code (data-name-A) may be invalid.