Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL

F–12 46958 Tandem Computers Incorporated

[#IF [l^retcode] |THEN|

[dns^err l^retcode]

]

== Get INFO ALIAS response tokens.

dns^ssgetv l^response^buf zdns^map^info^alias^br [l^alias^br^sym]

dns^ssgetv l^response^buf zdns^map^info^alias^dr [l^alias^dr^sym]

== See if there is a ZSPI^TKN^CONTEXT in the response.

#SET l^status [dns^ssget l^response^buf zspi^tkn^context]

[#IF NOT ([l^status] = [zspi^err^mistkn]) |THEN|

[#IF [l^status] |THEN|

dns^spierr SSGET l^status

|ELSE|

dns^ambiguous^name [l^alias]

]

#UNFRAME

?SECTION dns^delete^dnsname ROUTINE

== Execute a DELETE command for alias, composite, DNS domain, or group:

== dns^delete^dnsname <dnstype> <dnsname>

== where:

== <dnstype> NUMBER: Type of name to delete.

== <dnsname> Name to delete.

#FRAME

#PUSH l^dnsname {<dnsname>}

#PUSH l^dnstype {<dnstype>}

#PUSH l^status, l^retcode {SPI Procedure Status and ZSPI^TKN^RETCODE value}

#DEF l^param STRUCT LIKE zdns^ddl^del^dnsobj; {DELETE DNSOBJ parameter}

#DEF l^request^buf STRUCT LIKE zdns^ddl^msg^buffer; {Request buffer}

#DEF l^response^buf STRUCT LIKE zdns^ddl^msg^buffer; {Response buffer}

== Get <dnstype>.

SINK [#ARGUMENT/VALUE l^dnstype/ NUMBER]