Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–39
PERFORM 100-INITIALIZE.
IF DNS-NO-ERROR
*
* Start a TMF transaction
*
PERFORM 200-BEGINTRANSACTION.
IF DNS-NO-ERROR
*
* Send the request to the name manager
*
PERFORM 300-SEND-TO-MANAGER.
IF DNS-NO-ERROR
*
* Try to commit the transaction
*
PERFORM 400-ENDTRANSACTION
ELSE
*
* Error; abort the transaction
*
PERFORM 500-ABORTTRANSACTION.
EXIT PROGRAM.
100-INITIALIZE.
*
* Clear result
*
SET DNS-NO-ERROR TO TRUE.
*
* Initialize ALTER ALIAS parameter
*
ENTER TAL "SSNULL"
USING ZDNS-MAP-ALTER-ALIAS
PARAM
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Build the ALTER ALIAS parameter
*