Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TAL
46958 Tandem Computers Incorporated G–25
!
! 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;