Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL
46958 Tandem Computers Incorporated F–5
#FRAME
#PUSH l^error
SINK [#ARGUMENT /VALUE l^error/ NUMBER]
SINK [#ARGUMENT END]
#OUTPUT *** DNS Name Manager Responded with Error [l^error]
#RAISE dns_exception
#UNFRAME
?SECTION dns^ambiguous^name ROUTINE
==
== Invoked when name is not unique:
==
== dns^ambiguous^name <name-variable>
==
#FRAME
#PUSH l^ambiguous^name
SINK [#ARGUMENT /VALUE l^ambiguous^name/ VARIABLE/SYNTAX/]
#OUTPUT *** [l^ambiguous^name] is Not a Unique Name
#RAISE dns_exception
#UNFRAME
?SECTION dns^begintransaction ROUTINE
==
== Jacket routine for #BEGINTRANSACTION
==
#FRAME
#PUSH l^err
#SET l^err [#BEGINTRANSACTION]
[#IF l^err |THEN|
#OUTPUT *** BEGINTRANSACTION Error: [l^err]
#RAISE dns_exception
|ELSE|
#SET dns^transmode -1
]
#UNFRAME
?SECTION dns^endtransaction ROUTINE
==
== Jacket routine for #ENDTRANSACTION
==