Distributed Name Service (DNS) Management Programming Manual

Starting a DNS Name Manager Process
Communicating with the DNS Name Manager
2–4 46958 Tandem Computers Incorporated
IF phandle <> [10 * [-1]] THEN
!
! Name manager started -- try to open it
!
IF err := file_open_(pname:5, fno) THEN
!
! Couldn't open -- stop it just to be sure
!
CALL PROCESS_STOP_(phandle)
ELSE
BEGIN
!
! Opened okay -- build startup message
!
startup.type := -1;
!
! Name manager is DEFAULT
!
startup.default ':=' ["$SYSTEM SYSTEM "];
!
! IN file must be the configuration file
!
startup.in ':=' ["$SYSTEM SYSTEM DNSCONF "];
!Configuration file
!
! OUT file is the EMS collector (primary or alternate)
! to which the name manager's events are sent
!
startup.out ':=' ["$0 "];
!
! Startup text is backup CPU number
!
startup.msg ':=' ["14"];
!
! Terminate startup text with null character
!
startup.msg[2] := 0;
!
! Send startup message to the name manager
!
CALL write(fno, startup, $LEN(startup));