Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL
F–6 46958 Tandem Computers Incorporated
#FRAME
#PUSH l^err
#SET l^err [#ENDTRANSACTION]
[#IF l^err |THEN|
#OUTPUT *** ENDTRANSACTION Error: [l^err]
#RAISE dns_exception
|ELSE|
#SET dns^transmode 0
]
#UNFRAME
?SECTION dns^aborttransaction ROUTINE
==
== Jacket routine for #ABORTTRANSACTION
==
#FRAME
#PUSH l^err
#SET l^err [#ABORTTRANSACTION]
[#IF l^err |THEN|
#OUTPUT *** ABORTTRANSACTION Error: [l^err]
#RAISE dns_exception
|ELSE|
#SET dns^transmode 0
]
#UNFRAME
?SECTION dns^add^alias ROUTINE
==
== Execute a DNS ADD ALIAS command:
==
== dns^add^alias <alias>, [<aliastype>], [<domain>], <reftype>,
== , [ <ssobject> ] , [ <ssmanager> ]
==
== where:
==
== <alias> is the alias to be added.
== <aliastype> is the type of alias; if omitted, the alias is
== untyped.