From:	SMTP%"RELAY-INFO-VAX@CRVAX.SRI.COM" 12-MAY-1993 10:32:48.49
To:	EVERHART
CC:	
Subj:	RE: How to find if declared net object present?

Date: Tue, 11 May 93 10:29:50 -0700
Message-Id: <9305111729.AA10331@atc.boeing.com>
From: @atc.boeing.com:mdc8567@28.721 (M.D.Clay)
To: "INFO-VAX@sri.com"@BCSAIC
Cc: D.Clay@M, "mengland@igate1.hac.com"@BCSAIC
Subject: RE: How to find if declared net object present?

Matthew England (mengland@igate1.hac.com) asks:

> Can I see if a active/declared DECnet network object is present from
> DCL _without_ writing my own executable image and without attempting
> to connect to the net object?
> 
> [rest of post omitted...]

Matthew, the following DCL will do what you want and does not even require
much in the way of privileges (NETMBX only):

   $! CHECK_DECNET_OBJECT.COM
   $! 
   $  ncp = "$ncp"
   $  set process/privilege=netmbx
   $  set noon
   $  define/user_mode sys$output nl:
   $  define/user_mode sys$error  nl:
   $  ncp show object 'p1'
   $  if $status
   $  then
   $     write sys$output "Object exists!"
   $  else
   $     write sys$output "Object does not exist."
   $  endif
   $  exit

A quick check:

   $ @check_decnet_object mail
   Object exists!
   $ @check_decnet_object phone
   Object exists!
   $ @check_decnet_object comserv
   Object does not exist.
   
Cheers,

   Michael Clay
   Boeing Computer Services - Seattle, WA
   claym@bcsaic.boeing.com  - (206)234-7153