Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL
46958 Tandem Computers Incorporated F–7
== <domain> if omitted, the domain of the alias is allowed to default
== if local, the alias will not be replicated;
== otherwise, must be the name of a DNS domain.
== <reftype> must be ZDNS^OBJ^SSOBJ (12) or ZDNS^OBJ^SSMGR (11)
== DNS type of the alias's referent.
== <ssobject> if <reftype> = ZDNS^OBJ^SSOBJ, the subsystem-object
== name of the referent.
== Not used if <reftype> = ZDNS^OBJ^SSMGR.
== <ssmanager> if <reftype> = ZDNS^OBJ^SSOBJ, the referent's
== manager.
== if <reftype> = ZDNS^OBJ^SSMGR, the name of the
== referent.
==
#FRAME
#PUSH l^alias {<alias>}
#PUSH l^aliastype {<aliastype>}
#PUSH l^domain {<domain>}
#PUSH l^reftype {<reftype>}
#PUSH l^ssobj {<ssobject>}
#PUSH l^ssmgr {<ssmanager>}
#PUSH l^status, l^retcode {SPI status and ZSPI^TKN^RETCODE value}
#DEF l^param STRUCT LIKE zdns^ddl^add^alias; {ADD ALIAS 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 <alias>.
==
SINK [#ARGUMENT/VALUE l^alias/ VARIABLE/SYNTAX, UNQUALIFIED/]
[#IF [#VARIABLEINFO/EXISTENCE/ [l^alias]] |THEN|
#SET l^alias [#VARIABLEINFO/VARIABLE/ [l^alias]]
]
==
== Eat comma.
==
SINK [#ARGUMENT COMMA]
==
== Get <aliastype>, if any.
==
[#CASE [#ARGUMENT/VALUE l^aliastype/ VARIABLE/SYNTAX, UNQUALIFIED/ COMMA]
|1| [#IF [#VARIABLEINFO/EXISTENCE/ [l^aliastype]] |THEN|
#SET l^aliastype [#VARIABLEINFO/VARIABLE/ [l^aliastype]]
]
SINK [#ARGUMENT COMMA]