OpenTP1 Version 7 TP1/Client User's Guide TP1/Client/W, TP1/Client/P
CALL 'CBLDCRPS' USING identifier-1 identifier-2 identifier-3
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).
CALL 'CBLDCRPC' USING identifier-1
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.
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 '). |
All Rights Reserved. Copyright (C) 2006, 2009, Hitachi, Ltd.