OpenTP1 Version 7 Programming Reference COBOL Language

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

CBLDCRPC('DISCARDF') - Reject the receiving of processing results

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

Description

CBLDCRPC('DISCARDF') specifies that no more responses (which have not been returned) will be received through an asynchronous-response-type RPC. After CBLDCRPC('DISCARDF') is used, returned responses are discarded instead of being received.

To stop receiving further processing results of an asynchronous-response-type RPC, use CBLDCRPC('DISCARDF'). Otherwise, CBLDCRPC('POLLANYR') might receive unnecessary responses.

Use CBLDCRPC('DISCARDF') in the following cases:

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'DISCARDF' for the request code indicating that the receiving of processing results is refused.

data-name-C

Specify 0.

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.