Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–48 46958 Tandem Computers Incorporated
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 our transaction
*
ENTER TAL "ABORTTRANSACTION".
900-SET-STATUS-ERROR.
*
* Some sort of SPI error
*
SET DNS-ET-SPI TO TRUE.
MOVE SPI-STATUS TO DNS-ERROR-NUMBER.
END PROGRAM dns-delete-dnsname.