From:	SMTP%"gvrod@isuvax.iastate.edu"  7-JUL-1993 13:03:52.63
To:	EVERHART
CC:	
Subj:	Re: HOW TO ... start a FileView from DCL ???

X-Newsgroups: comp.os.vms
From: gvrod@isuvax.iastate.edu
Subject: Re: HOW TO ... start a FileView from DCL ???
Message-ID: <C9stzA.BxJ@news.iastate.edu>
Sender: news@news.iastate.edu (USENET News System)
Reply-To: gvrod@isuvax.iastate.edu
Organization: Iowa State University, Ames, Iowa
Date: Wed, 7 Jul 1993 14:37:58 GMT
Lines: 71
To: Info-VAX@KL.SRI.COM
X-Gateway-Source-Info: USENET

(Joachim Glaubrecht  #Alwd#) writes:
>
>hi,
> 
>hope it is no FAQ, but:
>
>How can i start a FileView from DCL ?
>
>the situation: i have a SGI-Station and telnet to a VAX (VMS 5.4).
>Alle X-Rights are set o.k..
>
>by "create /term ..." i can start a DEC-Term, but how can i run
>a FileView ? There is now DECW$FILEVIEW.EXE (e.g.) in SYS$MANAGER.
>
>is it part of the Session-Manager ?
>
>ANY hint is wellcome !
>

below is a short command procedure to start several of the DECwindows
applications/utilities from DCL. i don't know exactly what you need to
do on the SGI site.

-------------------------------cut here----------------------------------------
$! TCPIP.COM - run DECwindows applications over TCP/IP
$!
$! history:	13-feb-1993	r eldridge
$!				iowa state university
$!				(gvrod@isuvax.iastate.edu)
$!
$! usage:	@TCPIP command parameters	! don't spawn
$!    or:       @TCPIP &command parameters	! spawn command
$!
$! examples:
$!
$! dxbook :==	@TCPIP &mcr decw$bookreader	! BookReader
$! dxcard :==	@TCPIP &mcr decw$cardfiler	! CardFiler
$! dxmail :==	@TCPIP &mcr decw$mail		! Mail
$! dxnote :==	@TCPIP &mcr decw$notepad	! NotePad
$! dxterm :==	@TCPIP create/terminal=DECterm	! DECterm
$! dxview :==	@TCPIP &mcr vue$master		! FileView
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$
$ tcpip_host  = f$getdvi("TT","TT_ACCPORNAM") - "Host: "
$ if tcpip_host .eqs. ""
$ then
$	write sys$output "%TCPIP-F-NOTELNET, not logged in via TELNET"
$	exit
$ endif
$ decw$server_transports == "DECNET,LOCAL,TCPIP"
$ set display/create/node='f$element(0," ",tcpip_host)'/transport=TCPIP
$ if p1 .eqs. "" then exit
$ if f$extract(0,1,p1) .eqs. "&"
$ then
$	p1 = p1 - "&"
$	background = "spawn/nowait/nolog/logical_names/symbols"
$ else
$	background = ""
$ endif
$ 'background' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8'
$ exit
-------------------------------cut here----------------------------------------

---
rod eldridge   |   iowa state university   |   gvrod@isuvax.iastate.edu
                      (515) 294-7498             rod@iastate.edu

---
rod eldridge   |   iowa state university   |   gvrod@isuvax.iastate.edu
                      (515) 294-7498             rod@iastate.edu

