Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL

F–10 46958 Tandem Computers Incorporated

[#IF [l^retcode] |THEN|

[dns^err l^retcode]

]

== Try to commit the TMF transaction.

dns^endtransaction

#UNFRAME

?SECTION dns^lookup^alias ROUTINE

== Look up an alias in the DNS database.

== dns^lookup^alias <alias>

[ <defnode> ] <br-variable> <dr-variable> ==

== where:

== <alias> is the alias to be looked up.

== <defnode> SYSTEMNAME: if omitted, any definition node.

== <br-variable> STRUCT: ZDNS^DDL^INFO^ALIAS^BR.

== <dr-variable> STRUCT: ZDNS^DDL^INFO^ALIAS^DR.

#FRAME

#PUSH l^alias {<alias>}

#PUSH l^alias^defnode {<defnode>}

#PUSH l^alias^br^sym {<br-variable> name}

#PUSH l^alias^dr^sym {<dr-variable> name}

#PUSH l^status {SPI status}

#PUSH l^retcode {ZSPI^TKN^RETCODE value}

#DEF l^param STRUCT LIKE zdns^ddl^info^dnsobj^p; {INFO ALIAS parameter}

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

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

== Get <alias>.

SINK [#ARGUMENT /VALUE l^alias/ WORD]

== Get <defnode> and/or <br-variable>.