OpenTP1 Version 7 Programming Reference COBOL Language

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

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.