Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TAL
46958 Tandem Computers Incorporated G–21
INT(32) PROC dns^alter^alias(fno
, alias
, defnode
, domain
, reftype
, ssobject
, ssmanager);
INT fno; !i -- Name manager's file number.
STRING .EXT alias; !i -- Alias to be altered.
STRING .EXT defnode; !i -- Alias's definition node.
STRING .EXT domain; !i -- Domain
! <spaces>, Don't alter domain.
! "LOCAL", Alias no longer replicated.
! Otherwise, name of a DNS domain.
INT reftype; !i -- New referent's DNSTYPE
! -1, Don't alter referent.
! zdns^obj^ssobj New referent is an SSOBJECT
! name in SSOBJECT parameter and
! manager's name in SSMANAGER.
! zdns^obj^ssmgr New referent is an SSMANAGER
! name is SSMANAGER parameter.
STRING .EXT ssobject; !i -- SSOBJECT name (reftype = zdns^obj^ssobj).
STRING .EXT ssmanager; !i -- SSOBJECT manager or SSMANAGER name.
BEGIN
INT
status !Value returned by SPI procedures.
, retcode !RETCODE returned by name manager.
;
STRUCT .EXT req^buf(zdns^ddl^msg^buffer^def); !Request buffer
STRUCT .EXT resp^buf(zdns^ddl^msg^buffer^def); !Response buffer
INT(32)
result !Value returned by DNS^Send
;
STRUCT !ALTER ALIAS parameter
.param(zdns^ddl^alter^alias^def)
;
!ALTER ALIAS parameter map
INT param^map[0:zdns^map^alter^alias^wln - 1] = 'P' := zdns^map^alter^alias;
!
! Procedure body: initialize ALTER ALIAS request buffer.
!