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.

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:

• For TP1/Server Base: Value of the watch_time operand in the system common definition
• For TP1/LiNK: 180 seconds

The value obtained by CBLDCRPC('GETWATCH') can be used by the OpenTP1 remote service request (CBLDCRPC('CALL ')).

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-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.