Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–25
ENTER TAL "SSPUT"
USING DNS-REQUEST-BUF
ZDNS-MAP-INFO-NAME-P
PARAM
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Store ZSPI^TKN^MAXRESP in the request buffer
*
ENTER TAL "SSPUT"
USING DNS-REQUEST-BUF
ZSPI-TKN-MAXRESP
MAXRESP
GIVING SPI-STATUS.
IF SPI-STATUS NOT = 0
PERFORM 900-SET-STATUS-ERROR.
200-LOOKUP-LOOP.
*
* Send INFO NAME request to the name manager
*
CALL DNS-SEND
USING DNS-RESULT
DNS-REQUEST-BUF
DNS-RESPONSE-BUF
DNS-MOVE-CONTEXT-FLAG.
*
* Look at successive data lists until we're finished or we get an
* error
*
PERFORM
210-LOOKUP-LOOP-2
UNTIL DONE OR
SPI-STATUS NOT = 0 OR
NOT DNS-NO-ERROR.
*
* If we're not finished, see if the name manager has more responses
* for us
*
IF DNS-NO-ERROR AND NOT-DONE
PERFORM 290-CHECK-FOR-CONTEXT.
210-LOOKUP-LOOP-2.