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. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.