Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TAL
46958 Tandem Computers Incorporated G–23
!
! Send request to the name manager.
!
IF (result := dns^send(fno, req^buf, resp^buf, false)) <> 0d THEN
BEGIN
CALL aborttransaction;
RETURN result;
END;
!
! See how it turned out.
!
IF (status := ssgettkn(resp^buf, zspi^tkn^retcode, retcode)) THEN
BEGIN
CALL aborttransaction;
RETURN dns^spierr(status);
END;
IF retcode THEN
BEGIN
CALL aborttransaction;
RETURN dns^dnserr(retcode);
END;
!
! All looks okay; try to commit the transaction.
!
IF (status := endtransaction) THEN
RETURN dns^tmferr(status);
RETURN dns^noerr;
END;
?PAGE "DELETE A DNSOBJECT NAME"
!
! Delete an alias, composite, DNS domain, or group.
!
INT(32) PROC dns^delete^dnsname(fno , dnstype, dnsname);
INT fno; !Name manager's file number.
INT dnstype; !Type of name to delete
! ZDNS^OBJ^ALIAS, ZDNS^OBJ^COMP,
ZDNS^OBJ^DOM ! or ZDNS^OBJ^GROUP.
STRING .EXT dnsname; !Name to Delete.
BEGIN
INT
status !Value returned by SPI procedures.
, retcode !RETCODE returned by name manager.
;