Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–20 46958 Tandem Computers Incorporated
ENTER TAL "SSGET"
USING DNS-RESPONSE-BUF
ZSPI-TKN-CONTEXT
OMITTED
1
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Yes; name is not unique
*
SET AMBIGUOUS TO TRUE
ELSE
IF SPI-STATUS NOT = ZSPI-ERR-MISTKN
PERFORM 900-SET-STATUS-ERROR.
900-SET-STATUS-ERROR.
SET DNS-ET-SPI TO TRUE
MOVE SPI-STATUS TO DNS-ERROR-NUMBER.
END PROGRAM DNS-LOOKUP-ALIAS.
IDENTIFICATION DIVISION.
*
* Look up a name using the INFO NAME command
*
PROGRAM-ID. DNS-LOOKUP.
DATE-WRITTEN. May 11, 1987.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T/16.
OBJECT-COMPUTER. T/16.
DATA DIVISION.
WORKING-STORAGE SECTION.
*
* For setting Boolean token/field values
*
01 DNS-TRUE-FALSE.
02 DNS-TRUE PIC X(2) VALUE IS HIGH-VALUES.
02 DNS-FALSE PIC X(2) VALUE IS LOW-VALUES.
*
* Status returned from SPI procedures
*
77 SPI-STATUS NATIVE-2.