From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX"  7-SEP-1989 12:22
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Here's how to window into a cluster from a vaxstation

Received: From UUNET.UU.NET by GIZMO.SRI.COM with TCP; Thu,  7 SEP 89 07:50:36 PDT
Received: from ukc.UUCP by uunet.uu.net (5.61/1.14) with UUCP 
	id AA06970; Thu, 7 Sep 89 10:48:35 -0400
Message-Id: <8909071448.AA06970@uunet.uu.net>
Received: from svax05.pcr.co.uk by kestrel.Ukc.AC.UK   via PSS (UKC CAMEL FTP)
           id aa19402; 7 Sep 89 15:38 BST
Date: 		Thu,  7 SEP 89 15:38:39 +0100
From: WILLIAMS_B@svax05.pfizer-central-research.co.uk
To: info-vax <@ukc.ac.uk:info-vax@kl.sri.com>
Subject:        Here's how to window into a cluster from a vaxstation
Reply-To: _or_ <williams_b@svax05.pfizer-central-research.co.uk>
Mmdf-Warning:  Parse error in original version of preceding line at Ukc.AC.UK
X-Name:         Brian Williams 
X-Service:      Sandwich VAX 8600 
X-Address:      Pfizer Central Research, Sandwich, Kent CT13 9NJ UK
X-Telephone:    Sandwich (0304) 616234
X-Uk:           Brian Williams <uk.co.pcr.svax05> <uk pss 234216700127>

Here's how I window into a cluster using a vaxstation...

1) you need proxy access from your vaxstation
2) you need to set security up on your vaxstation so that it
will accept incoming calls from cluster... the simplest thing is
to accept *::your_username

3) put the following command procedure into your account on the 
server and the client as DECW.COM
--------------------------------------------------------------------------------
$	verify=f$ver(0)
$	mode = f$mode()
$	goto 'mode'
$ interactive:
$ 10$:	if p1 .nes. "" then goto 20$
$	inquire /nopunct p1  "$_Node name: "
$	goto 10$
$ 20$:	if p2 .nes. "" then goto 30$
$	inquire /nopunct p2  "$_Command string: "
$	goto 20$
$ 30$:	node = p1 - "::"
$	node = node + "::""task=decw"""
$	open /read /write network 'node'
$	write network "''f$getsyi("nodename")
$	write network p2
$ 40$:	read /end=50$ network buffer
$	write sys$Output buffer
$	goto 40$
$ 50$:	close network
$	verify=f$verify('verify)
$	exit
$ network:
$	open /read /write network sys$net:
$	assign network sys$output
$	read network node
$	set display/create/trans=decnet/node='node'
$	read network command
$	write sys$output "executing ''command'..."
$	deassign sys$output
$	close network
$	command
$	verify=f$verify('verify)
$	exit
--------------------------------------------------------------------------------

Then you will be able to put the following lines into DECW$LOGIN.COM

$@DECW SERVER_NODE $DECW$MAIL
$@DECW SERVER_NODE $VUE$MASTER
$@DECW SERVER_NODE "@REMOTE_DECTERM CLIENT_NODE

(Everyone has the REMOTE_DECTERM procedure that was poster earlier,
right?


Brian

