Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–27
PERFORM 240-EXAMINE-DATALIST-3
ELSE
IF RETCODE = ZDNS-ERR-NOMORE
*
* Name manager has no more responses; we're finished
*
SET DONE TO TRUE
ELSE
SET DNS-ET-DNS TO TRUE
MOVE RETCODE TO DNS-ERROR-NUMBER.
240-EXAMINE-DATALIST-3.
*
* Retrieve INFO NAME basic response
*
ENTER TAL "SSGET"
USING DNS-RESPONSE-BUF
ZDNS-MAP-INFO-NAME-BR
CANDIDATE
1
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* See if this name is one in which the caller is interested
*
IF DNS-TYPE-SELECTED(ZDNSTYPE OF CANDIDATE)
PERFORM 250-CHECK-CANDIDATE
ELSE
*
* See if this name is an alias for a type caller wants
*
IF ZDNSTYPE OF CANDIDATE = ZDNS-OBJ-ALIAS AND
DNS-TYPE-SELECTED(ZREFTYPE OF CANDIDATE)
*
* It is; get alias detail
*
PERFORM 260-CHECK-ALIAS
ELSE
NEXT SENTENCE
ELSE
PERFORM 900-SET-STATUS-ERROR.