Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–10 46958 Tandem Computers Incorporated
ENTER TAL "SSPUT"
USING DNS-RESPONSE-BUF
ZSPI-TKN-CLEARERR
GIVING SPI-STATUS.
IF SPI-STATUS NOT = 0
PERFORM 900-SET-STATUS-ERROR.
900-SET-STATUS-ERROR.
*
* Indicate to caller that we've had an error from one of the SPI
* procedures
*
SET DNS-ET-SPI TO TRUE.
MOVE SPI-STATUS TO DNS-ERROR-NUMBER.
END PROGRAM DNS-SEND.
IDENTIFICATION DIVISION.
*
* Opens the DNS name manager and performs a GETVERSION command
*
* CALL DNS-OPEN USING <dns-result> <dns-version>
*
PROGRAM-ID. DNS-OPEN.
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
*
SELECT DNS-MANAGER-FILE
ASSIGN TO $ZDNS.#ZSPI
FILE STATUS IS DNS-MANAGER-STATUS.
DATA DIVISION.
FILE SECTION.
FD DNS-MANAGER-FILE
EXTERNAL
RECORD CONTAINS 6 TO 4196 CHARACTERS
LABEL RECORDS ARE OMITTED.