Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TAL
G–18 46958 Tandem Computers Incorporated
done := true
ELSE
result := dns^spierr(status)
ELSE
!
! Yes; set MORE to indicate that the context
! token should be moved to the request buffer.
!
more := true;
END;
!
! If no names matched MASK, return a NOTFOUND error.
!
IF NOT (error OR have^response) THEN
result := dns^dnserr(zdns^err^notfound);
RETURN result;
END;
?PAGE "ADD ALIAS"
!
! Adds an alias to the DNS database.
!
INT(32) PROC dns^add^alias(fno
, alias
, aliastype
, domain
, reftype
, ssobject
, ssmanager);
INT fno; !i -- Name manager's file number.
STRING .EXT alias; !i -- Alias to be added.
STRING .EXT aliastype; !i -- Aliastype; if = <spaces>, alias will be
! untyped.
STRING .EXT domain; !i -- Alias's domain.
! = <spaces>, default domain.
! = LOCAL, nonreplicated;
! otherwise, name of a DNS domain.
INT reftype; !i -- Referent's DNSTYPE
! ( zdns^obj^ssobj or zdns^obj^ssmgr)
STRING .EXT ssobject; !i -- SSOBJECT name.
STRING .EXT ssmanager; !i -- SSMANAGER name or name of SSOBJECT
! manager.
BEGIN
INT
status !Value returned by SPI procedures.
, retcode !RETCODE returned by name manager.
;