Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–34 46958 Tandem Computers Incorporated
IF DOMAIN = "LOCAL"
MOVE SPACES TO ZDOMAIN OF PARAM
ELSE
IF DOMAIN NOT = SPACES
MOVE DOMAIN TO ZDOMAIN OF PARAM.
*
* Type of referent
*
MOVE REFTYPE TO ZREFTYPE OF PARAM.
*
* Only move the SSOBJECT name if referent is an SS object
*
IF REFTYPE = ZDNS-OBJ-SSOBJ
MOVE SSOBJECT TO ZSSOBJ OF PARAM.
*
* Always move SSMANAGER name
*
MOVE SSMANAGER TO ZSSMGR OF PARAM.
120-INITIALIZE-REQUEST-BUF.
*
* Initialize ADD ALIAS request
*
ENTER TAL "SSINIT"
USING DNS-REQUEST-BUF
ZDNS-VAL-BUFLEN
ZDNS-VAL-SSID
ZSPI-VAL-CMDHDR
ZDNS-CMD-ADD
ZDNS-OBJ-ALIAS
OMITTED
OMITTED
-1
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Finish building request
*
PERFORM 130-BUILD-REQUEST-BUF
ELSE
PERFORM 900-SET-STATUS-ERROR.
130-BUILD-REQUEST-BUF.
*
* Store ADD ALIAS parameter in the request buffer
*