XRJJM%SCINT.SPAN@STAR.STANFORD.EDU (John McMahon, (04/15/88)
Comment: Begin User Supplied Mail Headers.
*Site: NASA Goddard Space Flight Center - Greenbelt, Maryland, USA.
*Position: 76 Deg. 52' 28.5" West, 38 Deg. 59' 59.8" North.
*From: John J. McMahon, Systems Programmer, STX - ST Systems Corporation.
*Project: COBE Science Data Room (CSDR), Code 401.1
*Reply-To: (Arpa-Internet) XRJJM%SCINT.SPAN@VLSI.JPL.NASA.GOV
*Reply-To: (Arpa-Internet) XRJJM%SCINT.SPAN@STAR.STANFORD.EDU
*Reply-To: (Bitnet) FASTEDDY@IAFBIT
*Reply-To: (Span/Physnet/Hepnet) 6182::XRJJM = SCINT::XRJJM (Node 6.38)
*Reply-To: (Span/Physnet/Hepnet) 6173::XRJJM = CSDR::XRJJM (Node 6.29)
*Reply-To: (TEXnet) UTADNX::UTSPAN::SCINT::XRJJM
X> > disk. I recalled this quick and nifty method that a manager once
X> > showed me. If a node is there, then you can expect to find this file:
X> >
X> > nodename::DUA0:[000000]000000.DIR
X> >
X> > That is, the root directory file on the disk DUA0:. This is the line
X> > that I used to assign a "boolean" DCL symbol used as the condition of
X> > a later IF statement:
X> >
X> > Node_down = F$Search ("''Nodename'::DUA0:[000000]000000.dir") .eqs. ""
X> >
X> > This assumes that every DECnetted machine has a disk called DUA0:.
X> > Hopefully, I'm not completely off-base in this respect!
X> >
X>
X> Unfortunately this is not always the case. Our 785 for instance has all its
X> disks as DRxx. Also, wildcards are not allowed aas part of the disk name. I
X> s'pose you could always look for both types, but then there might be even more
X> valid formats that you would need to test.
X>
X> Chris Rouch
While DUA0: isn't always there, I think SYS$SYSDEVICE is. So if we modify the
above procedure to:
Node_Down = F$Search("''Nodename'::SYS$SYSDEVICE:[000000]000000.DIR") .eqs. ""
It should work, although I think F$SEARCH will return a null if the directory
is protected. You might want to search for a common WORLD readable file,
like SYS$SYSTEM:DCL.EXE
Regards,
^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
John J. McMahon (Fast-Eddie)
Disclaimer: Views expressed in this letter are my own,
and are not meant to represent the views of my employers.