Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–33
PERFORM 400-ENDTRANSACTION
ELSE
*
* Error; abort the transaction
*
PERFORM 500-ABORTTRANSACTION.
EXIT PROGRAM.
100-INITIALIZE.
*
* Clear result
*
SET DNS-NO-ERROR TO TRUE.
*
* Initialize ADD ALIAS parameter
*
ENTER TAL "SSNULL"
USING ZDNS-MAP-ADD-ALIAS
PARAM
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Build ADD ALIAS parameter
*
PERFORM 110-BUILD-ADD-PARAM
ELSE
PERFORM 900-SET-STATUS-ERROR.
IF DNS-NO-ERROR
*
* Build ADD ALIAS request buffer
*
PERFORM 120-INITIALIZE-REQUEST-BUF.
110-BUILD-ADD-PARAM.
*
* Move ALIAS name and type to the parameter
*
MOVE ALIAS TO ZNAME OF PARAM.
MOVE ALIASTYPE TO ZTYPE OF PARAM.
*
* Decode domain parameter
*