CBLDCRPC('GETCLADR') - Acquire the node address of a client UAP

OpenTP1 Version 7 Programming Reference COBOL Language

CBLDCRPC('GETCLADR') - Acquire the node address of a client UAP

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 'GETCLADR'.
    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('GETCLADR') allows the server UAP to acquire the address of the node at which the client UAP process is working. Security checking for the client UAP can be performed using the address obtained by this program.

The address obtained by CBLDCRPC('GETCLADR') cannot be used for sending a service response or error response.

CBLDCRPC('GETCLADR') must be called from a service program. Otherwise, processing is unpredictable.

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'GETCLADR' for the request code indicating that the node address of the client UAP be acquired.

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 node address of the client UAP 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.
Other than the above	An unprecedented error (e.g., program damage) occurred.

Note

When both the following conditions occur, the node address of the client UAP returned by CBLDCRPC('GETCLADR') may differ from the node address actually used by the client UAP during communication.

A service request was accepted using the remote API facility.
The host containing the client UAP is a multi-homed host mode.