Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–30 46958 Tandem Computers Incorporated
SET MOVE-CONTEXT TO TRUE
ELSE
IF SPI-STATUS = ZSPI-ERR-MISTKN
*
* No context token; we're finished
*
SET DONE TO TRUE
ELSE
PERFORM 900-SET-STATUS-ERROR.
900-SET-STATUS-ERROR.
*
* Called when we get an unexpected status from one of the SPI
* procedures
*
SET DNS-ET-SPI TO TRUE.
MOVE SPI-STATUS TO DNS-ERROR-NUMBER.
END PROGRAM DNS-LOOKUP.
IDENTIFICATION DIVISION.
PROGRAM-ID. DNS-ADD-ALIAS.
*
* This program performs an ADD ALIAS operation
*
* CALL DNS-ADD-ALIAS USING <result>
* <alias>
* <type>
* <domain>
* <reftype>
* <ssobject>
* <ssmanager>
*
* where:
*
* <result> indicates the outcome of the program.
* <alias> is the alias to be added.
* <type> is the ALIASTYPE of the new alias; if this
* parameter contains spaces, the new alias
* will be untyped.
* <domain> determines the domain of the new alias:
* spaces means let the domain default local
* means the new alias should not be replicated.
* Otherwise, the name of an existing DNSDOMAIN
* must be supplied.