Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–19
PERFORM 220-LOOKUP-3
ELSE
PERFORM 900-SET-STATUS-ERROR.
220-LOOKUP-3.
IF RETCODE = ZDNS-ERR-NOERR
*
* Name found; get INFO ALIAS response tokens
*
PERFORM 230-LOOKUP-4
ELSE
SET DNS-ET-DNS TO TRUE
MOVE RETCODE TO DNS-ERROR-NUMBER.
230-LOOKUP-4.
*
* Get INFO ALIAS basic response
*
ENTER TAL "SSGET"
USING DNS-RESPONSE-BUF
ZDNS-MAP-INFO-ALIAS-BR
ALIAS-BR
1
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Get INFO ALIAS detailed response
*
ENTER TAL "SSGET"
USING DNS-RESPONSE-BUF
ZDNS-MAP-INFO-ALIAS-DR
ALIAS-DR
1
GIVING SPI-STATUS.
IF SPI-STATUS NOT = 0
PERFORM 900-SET-STATUS-ERROR.
240-CHECK-FOR-CONTEXT.
*
* See if a ZSPI-TKN-CONTEXT token was returned
*