CBLDCRPC('DISCARDS') - Reject acceptance of specific processing results

OpenTP1 Version 7 Programming Reference COBOL Language

CBLDCRPC('DISCARDS') - Reject acceptance of specific 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 'DISCARDS'.
   02 data-name-B   PIC X(5).
   02 FILLER       PIC X(3).
   02 data-name-C   PIC S9(9) COMP VALUE ZERO.
   02 data-name-D   PIC S9(9) COMP.

Description

CBLDCRPC('DISCARDS') declares that the UAP will no longer receive a specific response which has not yet returned. This function is applicable when an asynchronous-response type RPC is used. To specify the asynchronous response whose acceptance is to be rejected, specify the descriptor returned when an asynchronous-response type RPC returned in data-name-D. Of the responses that return after CBLDCRPC('DISCARDS') is called, responses having the same descriptor as the specified descriptor are discarded without being received.

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'DISCARDS' for the request code indicating the acquisition of the node address of a gateway.

data-name-C

Specify 0.

data-name-D

Specify the descriptor returned when CBLDCRPC('CALL ') of an asynchronous-response type RPC terminated normally.

Data areas whose values are 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.
00302	CBLDCRPC('OPEN ') was not called.
00322	The descriptor specified for data-name-D does not exist. An asynchronous-response type RPC corresponding to the specified descriptor was not sent, or a response has already been received through an asynchronous-response type RPC, or acceptance of a response was rejected.