Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–5
IF NOT DNS-NO-ERROR
DISPLAY "Add of " ALIAS " Failed"
PERFORM DISPLAY-ERROR.
*
* New domain for the alias we just added
*
DISPLAY "Enter the New DOMAIN for your ALIAS".
ACCEPT DOMAIN.
*
* Change the domain
*
CALL DNS-ALTER-ALIAS
USING DNS-RESULT
ALIAS
SOME-DEFNODE
DOMAIN
NULL-REFTYPE
SOME-NAME
MANAGER.
IF NOT DNS-NO-ERROR
PERFORM DISPLAY-ERROR
ELSE
DISPLAY "DOMAIN of " ALIAS " Changed to " DOMAIN.
DISPLAY "Do You Wish to Delete Your Alias".
ACCEPT DELETE-FLAG.
IF DO-DELETE
PERFORM DELETE-THE-ALIAS.
STOP RUN.
DELETE-THE-ALIAS.
*
* Delete the alias
*
CALL DNS-DELETE-DNSNAME
USING DNS-RESULT
ZDNS-OBJ-ALIAS
ALIAS.
IF NOT DNS-NO-ERROR
PERFORM DISPLAY-ERROR
ELSE
DISPLAY "ALIAS " ALIAS " Deleted".