OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCRPC('GETWATCH') - Reference the service response waiting interval
Format
PROCEDURE DIVISION specification
CALL 'CBLDCRPC' USING unique-name-1 |
DATA DIVISION specification
01 unique-name-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. |
Description
CBLDCRPC('GETWATCH') references the current response waiting interval of a service request. CBLDCRPC('GETWATCH') is used for saving the current value of the response waiting interval of a service request before temporarily changing it using CBLDCRPC('SETWATCH').
CBLDCRPC('GETWATCH') returns the service response waiting interval changed by CBLDCRPC('SETWATCH'). When the interval has not been changed, the following value is returned:
The value obtained by CBLDCRPC('GETWATCH') can be used by the OpenTP1 remote service request (CBLDCRPC('CALL ')).
Data areas whose values are set in the UAP
data-name-A
Specify VALUE 'GETWATCH' for the request code indicating that the service response waiting interval be referenced.
data-name-C
Specify 0.
Data areas whose values are returned from OpenTP1
data-name-B
A status code of 5 digits is returned.
data-name-C
The current service response waiting interval is returned. If 0 is returned, it indicates that a response will be awaited indefinitely.
Status codes
Status code | Explanation |
---|---|
00000 | Normal termination. |
00301 | The value specified for the data-name is invalid. This error also occurs if the request code (data-name-A) is invalid. |
Other than the above | An unprecedented error (e.g., program damage) occurred. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.