Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–41
ENTER TAL "SSINIT"
USING DNS-REQUEST-BUF
ZDNS-VAL-BUFLEN
ZDNS-VAL-SSID
ZSPI-VAL-CMDHDR
ZDNS-CMD-ALTER
ZDNS-OBJ-ALIAS
OMITTED
OMITTED
-1
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Finish building the request
*
PERFORM 130-BUILD-REQUEST-BUF
ELSE
PERFORM 900-SET-STATUS-ERROR.
130-BUILD-REQUEST-BUF.
*
* Store the ALTER ALIAS parameter in the request buffer
*
ENTER TAL "SSPUT"
USING DNS-REQUEST-BUF
ZDNS-MAP-ALTER-ALIAS
PARAM
GIVING SPI-STATUS.
IF SPI-STATUS NOT = 0
PERFORM 900-SET-STATUS-ERROR.
200-BEGINTRANSACTION.
*
* Try to start a TMF transaction
*
ENTER TAL "BEGINTRANSACTION" GIVING SPI-STATUS.
IF SPI-STATUS NOT = 0
SET DNS-ET-TMF TO TRUE
MOVE SPI-STATUS TO DNS-ERROR-NUMBER.
300-SEND-TO-MANAGER.
*
* Send the request to the name manager
*