Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–36 46958 Tandem Computers Incorporated
*
* Check RETCODE
*
IF RETCODE NOT = ZDNS-ERR-NOERR
SET DNS-ET-DNS TO TRUE
MOVE RETCODE TO DNS-ERROR-NUMBER
ELSE
NEXT SENTENCE
ELSE
PERFORM 900-SET-STATUS-ERROR.
400-ENDTRANSACTION.
*
* Attempt to commit the TMF transaction
*
ENTER TAL "ENDTRANSACTION" GIVING SPI-STATUS.
IF SPI-STATUS NOT = 0
SET DNS-ET-TMF TO TRUE
MOVE SPI-STATUS TO DNS-ERROR-NUMBER.
500-ABORTTRANSACTION.
*
* Abort the TMF transaction
*
ENTER TAL "ABORTTRANSACTION".
900-SET-STATUS-ERROR.
*
* We've had an error returned from one of the SPI procedures
*
SET DNS-ET-SPI TO TRUE.
MOVE SPI-STATUS TO DNS-ERROR-NUMBER.
END PROGRAM dns-add-alias.
IDENTIFICATION DIVISION.
PROGRAM-ID. DNS-ALTER-ALIAS.
*
* This program performs an ALTER ALIAS operation:
*
* CALL DNS-ALTER-ALIAS USING <result>
* <alias>
* <defnode>
* <domain>
* <reftype>
* <ssobject>
* <ssmanager>