Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL
46958 Tandem Computers Incorporated F–9
[#IF NOT [#EMPTYV l^domain] |THEN|
[#IF [#MATCH [l^domain] LOCAL] |THEN|
#SET l^param:zdomain [l^param:zname] {Move All Spaces to DOMAIN}
|ELSE|
#SET l^param:zdomain [l^domain]
]
]
#SET l^param:zname [l^alias]
[#IF NOT [#EMPTYV l^aliastype] |THEN|
#SET l^param:ztype [l^aliastype]
]
#SET l^param:zreftype [l^reftype]
[#IF (l^reftype = zdns^obj^ssobj) |THEN|
#SET l^param:zssobj [l^ssobj]
]
[#IF NOT [#EMPTYV l^ssmgr] |THEN|
#SET l^param:zssmgr [l^ssmgr]
]
==
== Initialize ADD ALIAS request.
==
dns^ssinit l^request^buf zdns^cmd^add zdns^obj^alias
==
== Put ADD ALIAS parameter in the request buffer.
==
dns^ssputv l^request^buf zdns^map^add^alias l^param
==
== Start a TMF transaction.
==
dns^begintransaction
==
== Send the ADD 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]
]