Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–26 46958 Tandem Computers Incorporated
*
* See if there's another data list in the response
*
ENTER TAL "SSGET"
USING DNS-RESPONSE-BUF
ZSPI-TKN-DATALIST
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Look at the data list
*
PERFORM 220-EXAMINE-DATALIST-1
*
* Exit this data list
*
PERFORM 280-EXIT-DATALIST
ELSE
IF SPI-STATUS NOT = ZSPI-ERR-MISTKN
PERFORM 900-SET-STATUS-ERROR.
220-EXAMINE-DATALIST-1.
*
* Extract ZSPI-TKN-RETCODE from the current data list
*
ENTER TAL "SSGET"
USING DNS-RESPONSE-BUF
ZSPI-TKN-RETCODE
RETCODE
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Got RETCODE; check it
*
PERFORM 230-EXAMINE-DATALIST-2
ELSE
PERFORM 900-SET-STATUS-ERROR.
230-EXAMINE-DATALIST-2.
IF RETCODE = ZDNS-ERR-NOERR
*
* Good RETCODE; get the INFO NAME response
*