PROCEDURE DIVISION specification

CALL  'CBLDCRPC'  USING  unique-name-1

DATA DIVISION specification

01  unique-name-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.

CBLDCRPC('SETWATCH') changes the response waiting interval of service request. The value set by CBLDCRPC('SETWATCH') remains valid until CBLDCRPC('CLOSE ') is called.

To reset the response waiting interval of service request to the value which was in effect before CBLDCRPC('SETWATCH') is called, supply CBLDCRPC('SETWATCH') with the original value returned by CBLDCRPC('GETWATCH').

CBLDCRPC('SETWATCH') does not affect the value assigned to the watch_time operand in the system common definition.

The value set by CBLDCRPC('SETWATCH') influences only CBLDCRPC('CALL ') which will be called later.

data-name-A

Specify VALUE 'SETWATCH' for the request code indicating that the response waiting interval of service request be changed.

data-name-C

Specify a number from 1 to 65535 as the new service response waiting interval. Specify 0 to wait for a response indefinitely.

data-name-B

A status code of 5 digits is returned.