Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–42 46958 Tandem Computers Incorporated
CALL DNS-SEND
USING DNS-RESULT
DNS-REQUEST-BUF
DNS-RESPONSE-BUF
DNS-MOVE-CONTEXT-FLAG.
IF DNS-NO-ERROR
PERFORM 310-CHECK-RESULT.
310-CHECK-RESULT.
*
* Extract ZSPI-TKN-RETCODE
*
ENTER TAL "SSGET"
USING DNS-RESPONSE-BUF
ZSPI-TKN-RETCODE
RETCODE
GIVING SPI-STATUS.
*
* Check RETCODE
*
IF SPI-STATUS = 0
IF RETCODE NOT = ZDNS-ERR-NOERR
SET DNS-ET-DNS TO TRUE
MOVE RETCODE TO DNS-ERROR-NUMBER
ELSE
NEXT SENTENCE
ELSE
PERFORM 900-SET-STATUS-ERROR.
400-ENDTRANSACTION.
*
* Try to commit the TMF transaction
*
ENTER TAL "ENDTRANSACTION" GIVING SPI-STATUS.
IF SPI-STATUS NOT = 0
SET DNS-ET-TMF TO TRUE
MOVE SPI-STATUS TO DNS-ERROR-NUMBER.
500-ABORTTRANSACTION.
*
* Abort our transaction
*
ENTER TAL "ABORTTRANSACTION".
900-SET-STATUS-ERROR.