(a) In a multi-thread environment

PROCEDURE DIVISION

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

DATA DIVISION

 
01  identifier-1.
  02  data-name-A  PIC  X(8)  VALUE 'EXNCACPT'.
  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  S9(9)  COMP.
  02  data-name-E  PIC  X(8).
  02  data-name-F  PIC  X(n).
01  identifier-2.
  02  data-name-G  PIC  S9(9)  COMP.
  02  data-name-H  PIC  X(n).
01  identifier-3.
  02  data-name-I  PIC  9(9)  COMP.
 

(b) In a single-thread environment

PROCEDURE DIVISION

 
CALL 'CBLDCCLT' USING identifier-1 identifier-2
 

DATA DIVISION

 
01  identifier-1.
  02  data-name-A  PIC  X(8)  VALUE 'EXNCACPT'.
  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  S9(9)  COMP.
  02  data-name-E  PIC  X(8).
  02  data-name-F  PIC  X(n).
01  identifier-2.
  02  data-name-G  PIC  S9(9)  COMP.
  02  data-name-H  PIC  X(n).
 

Waits for a message returned by the CBLDCRPC('CLTSEND ') request code issued on the server side. The program stops waiting for the message if a timeout occurs before receiving the message. The timeout is specified in data-name-D. On reception of the message, this program returns the status code, received message, received message length, host name of the message-originating server, and node identifier of the message-originating server, and control returns to the CUP.

Before executing CBLDCCLS('EXNCACPT'), always issue CBLDCCLS('O-NOTIFY').

Use this function when using the host name extension function.

• data-name-A
  Set VALUE 'EXNCACPT' as the request code for receiving a one-way message.
  
• data-name-C
  Set 0.
  
• data-name-D
  Set the timeout (in seconds) in the range from 0 to 65535. If 0 is set, a timeout does not occur.
  
• data-name-F
  Specify an area of 64 bytes^# or more for storing the host name of the server that sent a notification message.
  

  # This area must be larger than 255 bytes if you specify 00000008 for DCCLTOPTION in the client environment definition.

• data-name-G
  Specify the length of the area for storing a notification message from the server. Available values are in the range from 0 to DCRPC_MAX_MESSAGE_SIZE^#.
  

  # If you specify 2 or a larger value for DCCLTRPCMAXMSGSIZE in the client environment definition, the value you specify is used rather than the value of DCRPC_MAX_MESSAGE_SIZE (1 megabyte).

• data-name-H
  Specify the area for storing a notification message from the server. This area must be larger than the length specified for data-name-G.
  
• data-name-I
  Specify the one-way message reception ID received by CBLDCCLS('O-NOTIFY').
  

• data-name-B
  A five-digit status code is returned.
  
• data-name-E
  The node identifier of the message-originating server is returned in the following format:
  

  

• data-name-F
  The host name of the message-originating server is returned.
  If resolution to a host name fails, the IP address is returned in the dotted decimal format.
  
• data-name-G
  The length of the notification message from the server is returned.
  
• data-name-H
  The notification message from the server is returned.
  

Status code	Meaning
00000	Normal termination
02501	The value specified in the data area is incorrect.
02502	CBLDCCLS('O-NOTIFY') has not been executed.
02504	A necessary amount of buffer could not be allocated.
02506	Network error
02507	A timeout occurred during message reception.
02518	System error
02535	Versions do not match.
02544	The one-way message reception ID specified in data-name-I differs from the one received by CBLDCCLS('O-NOTIFY').
02546	The received message is too large for the CUP-provided area. The excess portion of the message is truncated. Values have already been set for data-name-E and data-name-F.
02548	An invalid message was received.
02549	The one-way message reception status was canceled by CBLDCCLS('CANCEL ') or CBLDCCLS('EXNCANCL'). Values have already been set for data-name-F, data-name-G, and data-name-H.