Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–43
*
* An error occured in one of the SPI procedures
*
SET DNS-ET-SPI TO TRUE.
MOVE SPI-STATUS TO DNS-ERROR-NUMBER.
END PROGRAM dns-alter-alias.
IDENTIFICATION DIVISION.
PROGRAM-ID. DNS-DELETE-DNSNAME.
*
* This program deletes an alias, composite, DNS domain or group:
*
* CALL DNS-DELETE-DNSNAME USING <result>
* <type>
* <name>
*
* where:
*
* <result> indicates the outcome of the program.
* <type> indicates the type of name to be deleted;
* must be ZDNS-OBJ-ALIAS, ZDNS-OBJ-COMP,
* ZDNS-OBJ-DOM, or ZDNS-OBJ-GROUP.
* <name> is the name to be deleted.
*
DATE-WRITTEN. May 11, 1987.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T/16.
OBJECT-COMPUTER. T/16.
DATA DIVISION.
WORKING-STORAGE SECTION.
*
* Status returned by SPI procedures
*
77 SPI-STATUS NATIVE-2.
*
* Value or ZSPI-TKN-RETCODE returned by the name manager
*
77 RETCODE NATIVE-2.
*
* Parameter to DNS-SEND
*
77 DNS-MOVE-CONTEXT-FLAG PIC X VALUE "N".
EXTENDED-STORAGE SECTION.