OpenTP1 Version 7 Programming Reference COBOL Language
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. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.