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 codeExplanation
00000Normal termination
00301The value specified for the data-name is invalid. This error also occurs if the request code (data-name-A) is invalid.
Other than the aboveAn unprecedented error (e.g., program damage) occurred.