Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–14 46958 Tandem Computers Incorporated
ENTER TAL "SSGET"
USING DNS-RESPONSE-BUF
ZSPI-TKN-SERVER-VERSION
DNS-VERSION
GIVING SPI-STATUS.
IF SPI-STATUS NOT = 0
PERFORM 900-SET-STATUS-ERROR.
900-SET-STATUS-ERROR.
*
* Called when we get an error from one of the SPI procedures
*
PERFORM 910-DO-CLOSE.
SET DNS-ET-SPI TO TRUE.
MOVE SPI-STATUS TO DNS-ERROR-NUMBER.
910-DO-CLOSE.
*
* Close the name manager
*
CLOSE DNS-MANAGER-FILE.
END PROGRAM DNS-OPEN.
IDENTIFICATION DIVISION.
*
* Perform an INFO ALIAS command:
*
* CALL DNS-LOOKUP-ALIAS
* USING <alias>
* <defnode>
* <alias-br>
* <alias-dr>
* <ambiguous>
*
* where:
*
* <alias> is the alias to be looked up.
* <defnode> is the alias's definition node. If supplied as
* spaces, look for <alias> on any node.
* <alias-br> ZDNS-DDL-ALIAS-BR.
* <alias-dr> ZDNS-DDL-ALIAS-DR.
* <ambiguous> is set to N if <alias> is unique;
* set to Y, otherwise.
*