CBLDCRPC('GETERDES') - Acquire the descriptor of an asynchronous response-type RPC request which has encountered an error

OpenTP1 Version 7 Programming Reference COBOL Language

CBLDCRPC('GETERDES') - Acquire the descriptor of an asynchronous response-type RPC request which has encountered an error

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 'GETERDES'.
    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('GETERDES') acquires the descriptor of a service request which has encountered an error when it is called just after CBLDCRPC('POLLANYR') without a particular asynchronous response specified returns with an error.

It can acquire the descriptor only when the error has occurred on the SPP. If an error has occurred on the CBLRPC('POLLANYR') caller, CBLDCRPC('GETERDES') cannot acquire the descriptor.

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'GETERDES' for the request code indicating descriptor acquisition.

data-name-C

Specify 0.

Data areas whose values are returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

data-name-D

The descriptor is returned if it is acquired. Otherwise, 0 is set here.

Status codes

Status code	Explanation
00000	Normal termination.
00301	The value specified for the data name is invalid. This error also occurs when the request code (data-name-A) is invalid.