Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–6 46958 Tandem Computers Incorporated
DISPLAY-ERROR.
DISPLAY DNS-ERROR-TYPE-TEXT(DNS-ERROR-TYPE) " Error "
DNS-ERROR-NUMBER. STOP RUN.
END PROGRAM dns-main.
IDENTIFICATION DIVISION.
PROGRAM-ID. DNS-SEND.
*
* This program sends an SPI-formatted buffer to the DNS name
* manager as follows:
*
* CALL DNS-SEND USING <result>
* <request-buffer>
* <response-buffer>
* <move-context-flag>
*
* where:
*
* <result> indicates the outcome of the program.
* <request-buffer> is the SPI-formatted buffer to be sent;
* this buffer is not modified by the call.
* <response-buffer> is the buffer where the name manager's
* response is to be placed.
* <move-context-flag> indicates whether ZSPI-TKN-CONTEXT from
* <response-buffer> is to be included in the
* request to the name manager (continued request).
DATE-WRITTEN. May 11, 1987.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T/16.
OBJECT-COMPUTER. T/16.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
*
* DNS manager file
*