Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–24 46958 Tandem Computers Incorporated
*
* Build INFO NAME request buffer
*
PERFORM 120-INITIALIZE-REQUEST-BUF.
110-BUILD-INFO-PARAM.
*
* Move our parameters to the INFO NAME parameter
*
MOVE DNS-NAME TO ZNAME OF PARAM.
MOVE DNS-DEFNODE TO ZDEFNODE OF PARAM.
*
* If no definition node is specified, assume any
*
IF ZDEFNODE OF PARAM = SPACES
MOVE "*" TO ZDEFNODE OF PARAM.
120-INITIALIZE-REQUEST-BUF.
*
* Initialize INFO NAME request
*
ENTER TAL "SSINIT"
USING DNS-REQUEST-BUF
ZDNS-VAL-BUFLEN
ZDNS-VAL-SSID
ZSPI-VAL-CMDHDR
ZDNS-CMD-INFO
ZDNS-OBJ-NAME
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Finish building request
*
PERFORM 130-BUILD-REQUEST-BUF
ELSE
PERFORM 900-SET-STATUS-ERROR.
130-BUILD-REQUEST-BUF.
*
* Store INFO NAME parameter in the request buffer
*