Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TAL
G–20 46958 Tandem Computers Incorporated
!
! Store ADD ALIAS parameter in request buffer.
!
IF (status := ssput(req^buf, param^map, param)) THEN
RETURN dns^spierr(status);
!
! Start a TMF transaction.
!
IF (status := begintransaction) THEN
RETURN dns^tmferr(status);
!
! 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 "ALTER ALIAS"
!
! Alter the definition of an alias.
!