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

References the response wait time for the current service request.

You can use CBLDCRPS('GETWATCH') to acquire the current timeout for the response of the service request so that you can restore the previous setting after temporarily changing the timeout by using CBLDCRPS('SETWATCH').

The CBLDCRPS('GETWATCH') program returns the service response time that is changed by CBLDCRPS('SETWATCH'). If the service response time is unchanged, the program returns the DCWATCHTIM value in the client environment definition.

Returned values are available for CBLDCRPS('CALL ') for OpenTP1.

• data-name-A
  Set VALUE 'GETWATCH' as a request code for referencing the service response wait time.
  
• 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.
  
• data-name-C
  The current value for the maximum time that the system waits for a service response is returned. If 0 is returned, the system waits for a service response indefinitely.
  

Status code	Meaning
00000	Normal termination
02401	The request code (data-name-A) may be invalid.
02402	CBLDCRPS('OPEN ') is not executed.
02404	Insufficient memory
02544	The client ID specified for data-name-D differs from the one received with CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').