OpenTP1 Version 7 Programming Reference COBOL Language

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

CBLDCRPC('GETGWADR') - Acquire the node address of a gateway

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 'GETGWADR'.
    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('GETGWADR') acquires the node address of a gateway from the server UAP when a service request was received from a client UAP via a gateway, such as the application gateway FireWall.

The server UAP can acquire the node address of the gateway when a service was requested using the remote API facilities.

A service response or error response cannot be sent using the address that is returned.

Call CBLDCRPC('GETGWADR') from the service program. Processing is not guaranteed if CBLDCRPC('GETGWADR') is called from a program other than the service program.

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'GETGWADR' for the request code indicating the acquisition of the node address of a gateway.

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 is returned. The value 0 is set when the remote API facilities were not used.

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('GETGWADR') was not called from the service program.