Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL
46958 Tandem Computers Incorporated F–13
==
== Get <dnsname>.
==
SINK [#ARGUMENT/VALUE l^dnsname/ WORD]
SINK [#ARGUMENT END]
==
== Initialize DELETE DNSOBJ parameter.
==
dns^ssnull zdns^map^del^dnsobj l^param
==
== Build DELETE DNSOBJ parameter.
==
#SET l^param:zname [l^dnsname]
==
== Initialize DELETE <dnstype> request.
==
dns^ssinit l^request^buf zdns^cmd^delete [l^dnstype]
==
== Put DELETE DNSOBJ parameter in the request buffer.
==
dns^ssputv l^request^buf zdns^map^del^dnsobj l^param
==
== Start a TMF transaction.
==
dns^begintransaction
==
== Send the 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
]
[#IF [l^retcode] |THEN|
dns^err l^retcode
]
==
== Try to commit TMF transaction.
==