(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 'RECEIVE2'.
   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 S9(9) COMP.
   02 data-name-G PIC 9(9) COMP.
   02 data-name-H PIC X(n).
 

(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 'RECEIVE2'.
   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 S9(9) COMP.
   02 data-name-F PIC 9(9) COMP.
   02 data-name-H PIC X(n).
 

Receives messages from the MHP.

Before executing CBLDCCLS('RECEIVE2'), execute CBLDCRPS('OPEN ') by specifying 8 or 16 for data-name-C.

• data-name-A
  Set VALUE 'RECEIVE2' as a request code for receiving messages.
  
• data-name-C
  Specify whether to release the connection after message reception.
  0: Does not release the connection after message reception.
  2: Releases the connection after message reception.
  Except error situations, specifying 0 maintains the connection until you issue CBLDCRPS('CLOSE ').
  
• data-name-D
  Specify the length of the message to receive.
  
• data-name-E
  Set the maximum wait time in seconds for receiving messages. The value must be an integer between -1 and 65535.
  

  If -1 is specified:

  The statement waits indefinitely for a message.

  If 0 is specified:

  The statement does not wait for a message. If there is no message to be received, the statement returns a 02507 error.

  If any value from 1 to 65,535 is specified:

  The statement waits for a message, but returns a 02507 error if a message does not arrive within the specified number of seconds.

• data-name-F
  An area used for OpenTP1
  
• data-name-G
  Specify the client ID received by CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').
  
• data-name-H
  An area for storing received messages
  

• data-name-B
  5-digit status code
  
• data-name-D
  Length of the received message
  
• data-name-H
  Received message
  

Status code	Meaning
00000	Normal termination
02501	Invalid data name. A request code (data-name-A) may be incorrect.
02502	Possible causes are as follows: CBLDCRPS('OPEN ') has not been executed. CBLDCRPS('OPEN ') has been executed, but 8 or 16 is not specified for data-name-C in CBLDCRPS('OPEN ').
02504	Insufficient memory
02506	Network error
02507	Timeout occurred during reception of the message.
02518	System error
02538	Insufficient resource
02542	The remote system released the connection.
02544	The client ID specified for data-name-G differs from the one received with CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').

• CBLDCCLS('RECEIVE2') returns control to the CUP when:
  
  • The program received a message of the length specified in data-name-D from the MHP (control is not returned to the CUP if the received message is shorter than the set length).
  • A timeout occurred while the program was waiting for a message from the MHP.
  • The MHP released the connection.
  • A network error occurred.
• When CBLDCCLS('RECEIVE2') is issued, a disconnection from the MHP allows the program to return an error with 02542.