Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–4 46958 Tandem Computers Incorporated
MOVE ALL "N" TO DNS-LOOKUP-PARAM.
SET DNS-TYPE-SELECTED(ZDNS-OBJ-SSOBJ) TO TRUE.
SET DNS-TYPE-SELECTED(ZDNS-OBJ-SSMGR) TO TRUE.
*
* Name that we're going to look up
*
DISPLAY "Enter the name you wish to look up".
ACCEPT ENTERED-NAME.
*
* Look up the name
*
CALL DNS-LOOKUP
USING DNS-RESULT
SOME-NAME
SOME-DEFNODE
DNS-LOOKUP-PARAM
RESPONSE
AMBIGUOUS-FLAG.
IF NOT DNS-NO-ERROR
DISPLAY "Lookup of " SOME-NAME " Failed"
PERFORM DISPLAY-ERROR.
IF AMBIGUOUS
DISPLAY SOME-NAME " is Ambiguous"
STOP RUN.
*
* Add a new alias for the name just found.
*
MOVE ZSSOBJ OF RESPONSE TO SOME-NAME.
MOVE ZSSMGR OF RESPONSE TO MANAGER.
*
* Get new alias name.
*
DISPLAY "Enter the New Alias for This Name".
ACCEPT ALIAS.
CALL DNS-ADD-ALIAS
USING DNS-RESULT
ALIAS
ATYPE
DOMAIN
ZDNSTYPE OF RESPONSE
SOME-NAME
MANAGER.