Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–29
ENTER TAL "SSNULL"
USING ZDNS-MAP-INFO-NAME-BR
CANDIDATE
GIVING SPI-STATUS.
IF SPI-STATUS = 0
MOVE DNS-FALSE TO ZREMOTE OF CANDIDATE
MOVE ZREFTYPE OF ALIAS-BR TO ZDNSTYPE OF CANDIDATE
MOVE ZSSOBJ OF ALIAS-DR TO ZSSOBJ OF CANDIDATE
MOVE ZSSMGR OF ALIAS-DR TO ZSSMGR OF CANDIDATE
MOVE ZSSTYPE OF ALIAS-DR TO ZSSTYPE OF CANDIDATE
MOVE ZSS OF ALIAS-DR TO ZSS OF CANDIDATE
MOVE ZOWNER OF ALIAS-DR TO ZOWNER OF CANDIDATE
MOVE ZSSNUM OF ALIAS-DR TO ZSSNUM OF CANDIDATE
MOVE ZTYPENUM OF ALIAS-BR TO ZDNSNAME OF CANDIDATE
PERFORM 250-CHECK-CANDIDATE
ELSE
PERFORM 900-SET-STATUS-ERROR.
280-EXIT-DATALIST.
*
* Get us out of the current list
*
ENTER TAL "SSGET"
USING DNS-RESPONSE-BUF
ZSPI-TKN-ENDLIST
GIVING SPI-STATUS.
IF SPI-STATUS NOT = 0
PERFORM 900-SET-STATUS-ERROR.
290-CHECK-FOR-CONTEXT.
*
* See if name manager included a context token
*
ENTER TAL "SSGET"
USING DNS-RESPONSE-BUF
ZSPI-TKN-CONTEXT
OMITTED
1
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Yes; set flag so we can tell DNS-SEND to move context from
* response buffer to request buffer
*