Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–28 46958 Tandem Computers Incorporated
250-CHECK-CANDIDATE.
IF HAVE-RESPONSE
IF RESPONSE NOT = CANDIDATE
*
* We have a response already and it's different from the current one;
* name is not unique
*
SET DONE TO TRUE
SET AMBIGUOUS TO TRUE
ELSE
NEXT SENTENCE
ELSE
*
* First response; save it in RESPONSE and remember that we did so
*
MOVE CANDIDATE TO RESPONSE
SET HAVE-RESPONSE TO TRUE.
260-CHECK-ALIAS.
*
* Call DNS-LOOKUP-ALIAS using the CANDIDATE
*
CALL DNS-LOOKUP-ALIAS
USING DNS-RESULT
Z-C OF ZDNSNAME OF CANDIDATE
Z-C OF ZDEFNODE OF CANDIDATE
ALIAS-BR
ALIAS-DR
AMBIGUOUS-FLAG.
IF DNS-NO-ERROR
*
* Use the information returned by DNS-LOOKUP-ALIAS to build
* CANDIDATE for this alias's referent
*
PERFORM 270-BUILD-CANDIDATE-FROM-ALIAS.
270-BUILD-CANDIDATE-FROM-ALIAS.
*
* This paragraph builds CANDIDATE from ALIAS-BR and ALIAS-DR
*