OpenTP1 Version 7 TP1/Client User's Guide TP1/Client/W, TP1/Client/P

[Contents][Index][Back][Next]

6.3.4 CBLDCRPS('SETWATCH') - Service response wait time update

Organization of this subsection
(1) Form
(2) Purpose
(3) Data area where the UAP sets values
(4) Data area for which a value is returned
(5) Status codes

(1) Form

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

(2) Purpose

Changes the timeout for the response of the service request. When the timeout is changed by using this program, the subsequent CBLDCRPS('CALL ') programs will use the new timeout until CBLDCRPS('CLOSE ') is executed. Note that this program does not change the value of DCWATCHTIM in the client environment definition.

Before you change the timeout by executing CBLDCRPS('SETWATCH'), execute CBLDCRPS('GETWATCH') to acquire the current value so that you can restore the previous setting after changing the timeout.

(3) Data area where the UAP sets values

(4) Data area for which a value is returned

(5) Status codes

Status code Meaning
00000 Normal termination
02401 Invalid value for the data name. 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 ').