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

(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 'CLTOUT '.
   02 data-name-B PIC X(5).
   02 FILLER     PIC X(3).
   02 data-name-C PIC S9(9) COMP VALUE ZERO.
 

Releases the client user authentication and rejects OpenTP1 services afterwards.

Be sure to execute CBLDCCLS('CLTOUT ') before termination of a CUP. When executed, CBLDCCLS('CLTOUT ') must be paired with CBLDCCLS('CLTIN ').

• data-name-A
  Set VALUE 'CLTOUT ' as a request code for releasing the client user authentication.
  
• 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
02501	The request code (data-name-A) may be invalid.