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

CBLDCCLS('C-NOTIFY') deletes the environment for using the facility for receiving one-way messages from the server.

CBLDCCLS('O-NOTIFY') and CBLDCCLS('C-NOTIFY') are used in a pair.

• data-name-A
  Set VALUE 'C-NOTIFY' as the request code for terminating reception of one-way messages.
  
• data-name-C
  Set 0.
  
• data-name-D
  Specify the one-way message reception ID received by CBLDCCLT('O-NOTIFY').
  

• data-name-B
  A five-digit status code is returned.
  

Status code	Meaning
00000	The program normally terminated.
02501	The value specified in the data area is incorrect.
02504	A necessary amount of buffer could not be allocated.
02544	The one-way message reception ID specified in data-name-D differs from that received by CBLDCCLS('O-NOTIFY').