Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL
46958 Tandem Computers Incorporated F–11
[#IF ([#ARGUMENT /VALUE l^alias^defnode/
SYSTEMNAME/SYNTAX/
VARIABLE/SYNTAX/]) = 1
|THEN|
SINK [#ARGUMENT /VALUE l^alias^br^sym/ VARIABLE]
|ELSE|
#SETV l^alias^br^sym l^alias^defnode
#SET l^alias^defnode
]
==
== Get <dr-variable>.
==
SINK [#ARGUMENT /VALUE l^alias^dr^sym/ VARIABLE]
==
== Initialize INFO ALIAS parameter.
==
dns^ssnull zdns^map^info^dnsobj^p l^param
==
== Build INFO ALIAS parameter.
==
#SET l^param:zname [l^alias]
[#IF NOT [#EMPTYV l^alias^defnode] |THEN|
#SET l^param:zdefnode [l^alias^defnode]
]
#SET l^param:zdetail -1
==
== Initialize INFO ALIAS request buffer.
==
dns^ssinit l^request^buf zdns^cmd^info zdns^obj^alias
==
== Put INFO ALIAS parameter in the request buffer.
==
dns^ssputv l^request^buf zdns^map^info^dnsobj^p l^param
==
== Send INFO ALIAS request to the name manager.
==
dns^send l^request^buf l^response^buf
==
== Get and check ZSPI^TKN^RETCODE.
==
#SET l^status [dns^ssget l^response^buf zspi^tkn^retcode l^retcode]
[#IF [l^status] |THEN|
dns^spierr SSGET l^status
]