Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–18 46958 Tandem Computers Incorporated
ENTER TAL "SSPUT"
USING DNS-REQUEST-BUF
ZDNS-MAP-INFO-DNSOBJ-P
PARAM
GIVING SPI-STATUS.
IF SPI-STATUS NOT = 0
PERFORM 900-SET-STATUS-ERROR.
200-LOOKUP.
*
* Send the INFO ALIAS request to the name manager
*
CALL DNS-SEND
USING DNS-RESULT
DNS-REQUEST-BUF
DNS-RESPONSE-BUF
DNS-MOVE-CONTEXT-FLAG.
IF DNS-NO-ERROR
*
* Examine response
*
PERFORM 210-LOOKUP-2
IF DNS-NO-ERROR
*
* See if the name manager has more responses for us
*
PERFORM 240-CHECK-FOR-CONTEXT.
210-LOOKUP-2.
*
* Retrieve ZSPI-TKN-RETCODE from the response buffer
*
ENTER TAL "SSGET"
USING DNS-RESPONSE-BUF
ZSPI-TKN-RETCODE
RETCODE
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Continue
*