Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85

46958 Tandem Computers Incorporated E–13

ENTER TAL "SSINIT"

USING DNS-REQUEST-BUF

ZDNS-VAL-BUFLEN

ZDNS-VAL-SSID

ZSPI-VAL-CMDHDR

ZSPI-CMD-GETVERSION

ZDNS-OBJ-DNS

OMITTED

-1

GIVING SPI-STATUS.

IF SPI-STATUS NOT = 0

PERFORM 900-SET-STATUS-ERROR.

200-GET-RETCODE.

* 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 NOT = 0

PERFORM 900-SET-STATUS-ERROR.

300-CHECK-RETCODE.

IF RETCODE NOT = 0

* Some sort of error; close the name manager

PERFORM 910-DO-CLOSE

SET DNS-ET-DNS TO TRUE

MOVE RETCODE TO DNS-ERROR-NUMBER.

400-GET-VERSION.

* Retrieve ZSPI-TKN-SERVER-VERSION from the response buffer