Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–40 46958 Tandem Computers Incorporated
PERFORM 110-BUILD-ALTER-PARAM
ELSE
PERFORM 900-SET-STATUS-ERROR.
IF DNS-NO-ERROR
*
* Finish building the ALTER ALIAS request
*
PERFORM 130-INITIALIZE-REQUEST-BUF.
110-BUILD-ALTER-PARAM.
*
* Move alias and its definition node
*
MOVE ALIAS TO ZNAME OF PARAM.
MOVE DEFNODE TO ZDEFNODE OF PARAM.
*
* Decode the DOMAIN parameter
*
IF DOMAIN = "LOCAL"
MOVE SPACES TO ZDOMAIN OF PARAM
ELSE
IF DOMAIN NOT = SPACES
MOVE DOMAIN TO ZDOMAIN OF PARAM.
IF REFTYPE NOT = -1
*
* Move REFERENT parameters
*
PERFORM 120-CHANGE-REFERENT.
120-CHANGE-REFERENT.
MOVE REFTYPE TO ZREFTYPE OF PARAM.
IF REFTYPE = ZDNS-OBJ-SSOBJ
MOVE SSOBJECT TO ZSSOBJ OF PARAM.
MOVE SSMANAGER TO ZSSMGR OF PARAM.
130-INITIALIZE-REQUEST-BUF.
*
* Initialize ALTER ALIAS request
*