OpenTP1 Version 7 Programming Reference COBOL Language

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

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.