OpenTP1 Version 7 Programming Reference COBOL Language

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

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.