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. 

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-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-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.