OpenTP1 Version 7 Programming Reference COBOL Language

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

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

Description

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 areas whose values are set in the UAP

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 area whose value is returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

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.