home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / os / vms / 15074 < prev    next >
Encoding:
Text File  |  1992-09-15  |  6.1 KB  |  147 lines

  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!spool.mu.edu!caen!uakari.primate.wisc.edu!eng.ufl.edu!robot.nuceng.ufl.edu!sysop                           
  3. From: sysop                           
  4. Subject: Re: How to see decw$xxxx on another screen? (DECTERM.COM)
  5. Message-ID: <15SEP199211060143@robot.nuceng.ufl.edu>
  6. News-Software: VAX/VMS VNEWS 1.4-b1  
  7. Sender: news@eng.ufl.edu (Usenet Diskhog System)
  8. Organization: Department of Nuclear Engineering Sciences
  9. References: <1992Sep14.161259.119263@marshall.wvnet.edu>
  10. Date: 15 Sep 1992 11:06 EST  
  11. Lines: 134
  12.  
  13. In article <1992Sep14.161259.119263@marshall.wvnet.edu>, rcbi110@marshall.wvnet.edu writes...
  14. >I want to do the following but it doesn't work:
  15. >Telnet from a dec5000/200 with ultrix to a microvax3100
  16. >run decw$whatever, but have it show up on the 5000's screen where I am sitting.
  17. >My eyeballs are bugging out, I am so tired of reading "decmanualese" that I
  18. >can't make heads of tails of it anymore.  So PLAIN ENGLISH is appreciated :^)
  19. >((   ||  /\\ \\  / /\\  ((      R. Alan Monroe       ((  I'm not an actor, ((
  20. > )) _// /--\\ \\/ /--\\  )) rcbi110@muvms3.wvnet.edu  )) but I play one     ))
  21. >((              _       ((                           ((  on T...   Hey!!   ((
  22. > ))  ||  /\\  //  ||_/   ))    Pinkwater Rules!       )) Who wrote this     ))
  23. >((  _// /--\\ \\_ || \  ((            :^)            ((  script!?!?!   -me ((
  24.  
  25.  
  26. You must follow the private_server_setup and security setup as described in
  27. another response to your post.  However the user field, at least for TCPIP,
  28. has never provided greater security for me (ie. just use *).  I also use LAT
  29. as a transport, and create DECterms over DECNET, TCPIP, or LAT.
  30.  
  31. The following is a DCL comfile that I use to create a DECterminal on another
  32. X server (running DECNET, TCPIP, etc).  This should be easy to follow and is
  33. easily modified to run several of the other DECW$xxx apps.  Several days ago
  34. I posted a client/server that would export the DECW$CLOCK to an X server on
  35. the internet, but you could use this just as easily.  Some of the DECW$xxx
  36. apps won't run this way (ie. DECW$CALENDAR).  I think this is because it
  37. looks for startup files.
  38.  
  39. Good luck!
  40.  
  41. -------------------------------------------------------------------------------
  42. Shawn A. Clifford, System Manager | Internet: sysop@robot.nuceng.ufl.edu
  43. Nuclear Engineering Sciences      |        sac@eng.ufl.edu
  44. University of Florida             | Home Phone: 904/335-4914
  45. Gainesville, Florida  32611       | Work Phone: 904/392-1450  FAX: 904/392-3380
  46. -------------------------------------------------------------------------------
  47.  
  48. $! Title:    DECTERM.COM
  49. $! Author:    Shawn A. Clifford
  50. $! Date:    23-JUL-1992
  51. $! Purpose:    Create a DECterm and display it on another node.
  52. $!        By default the remote node is NUCENG.
  53. $! Usage:    @DECTERM [node] [transport]
  54. $!
  55. $!        where:  _node_ is the nodename for the remote host
  56. $!            _transport_ is the network transport to use
  57. $!
  58. $!        Valid transports are:
  59. $!            DECNET, TCPIP, LAT, and LOCAL, unless your system
  60. $!             manager has added/removed transports.
  61. $! Example:    @DECTERM "node.subnet.site.net" tcpip
  62. $!        will create a DECterm window at the Internet node
  63. $!        node.subnet.site.net (quotes are necessary so that DCL won't
  64. $!        parse the '.') via the TCP transport layer.
  65. $! Caveats:    For VMS and some Unix systems, the host must authorize
  66. $!        your node, transport, and possibly your username (DECNET)
  67. $!        before you may put an Xwindow on their display.
  68. $!
  69. $! Modification History:
  70. $!
  71. $! When        Who    What
  72. $! ----------------------------------------------------------------------------
  73. $! 22-AUG-1992    SAC    Have LOGINOUT create the process.  This way the process
  74. $!            has unlimited CPU time (not any more).
  75. $!            Also checks if we have a display already present.
  76. $! ----------------------------------------------------------------------------
  77. $! 'f$verify(0)
  78. $ say := write sys$output
  79. $!
  80. $! -----------------------------------------------------------------------
  81. $! Find out if this is the pass running from the LOGINOUT created process.
  82. $! -----------------------------------------------------------------------
  83. $    if (f$mode().nes."INTERACTIVE") then goto create_display
  84. $! ------------------------------------
  85. $! Check for existence of DECW$DISPLAY.
  86. $! ------------------------------------
  87. $    if (f$trnlnm("DECW$DISPLAY").nes."")
  88. $    then
  89. $       if (f$getdvi(f$trnlnm("DECW$DISPLAY"),"exists"))
  90. $        then
  91. $            say ""
  92. $            say "You already have a display:"
  93. $            show display 'f$trnlnm("DECW$DISPLAY")
  94. $            say "Press <RETURN> if this display is Ok."
  95. $            read/prompt="Otherwise hit any key and then <RETURN>:  " -
  96.                 sys$command dummy
  97. $            say ""
  98. $            if (dummy .eqs. "") then goto loginout
  99. $            set display/delete 'f$trnlnm("DECW$DISPLAY")
  100. $        endif
  101. $    endif
  102. $! ------------------
  103. $! Get the parameters
  104. $! ------------------
  105. $    if (P1 .nes. "")
  106. $    then
  107. $        node = P1
  108. $    else
  109. $        read/prompt="Node [NUCENG]:  " sys$command node
  110. $        if (node .eqs. "") then node = "NUCENG"
  111. $    endif
  112. $    if (P2 .nes. "")
  113. $    then
  114. $        tport = P2
  115. $    else
  116. $        read/prompt="Transport [DECNET]:  " sys$command tport
  117. $        if (tport .eqs. "") then tport = "DECNET"
  118. $    endif
  119. $! ------------------
  120. $! Create the display
  121. $! ------------------
  122. $    set display/create/node='node'/transport='tport' REM_DISPLAY
  123. $! -------------------------------------------------------------------------- 
  124. $! Define DECW$DISPLAY.  The DECW$xxx progs interpret this by default.
  125. $! Could use the /DISPLAY qualifier, but this is like setenv DISPLAY on unix.
  126. $! --------------------------------------------------------------------------
  127. $     define/nolog/job decw$display 'f$trnlnm("REM_DISPLAY")
  128. $! ------------------------------------------------------------------------
  129. $! Run LOGINOUT.  LOGINOUT will then use this program to create the DECterm.
  130. $! Create the display from the process created by LOGINOUT.EXE
  131. $! ------------------------------------------------------------------------
  132. $ loginout:
  133. $    this_prog:='f$environment("procedure")
  134. $    run/inp='this_prog'/out=nl:/error=nl: SYS$SYSTEM:LOGINOUT.EXE
  135. $! -------------------
  136. $! Create the terminal
  137. $! -------------------
  138. $ create_display:
  139. $    node := 'f$getsyi("nodename")
  140. $    create/terminal/big_font/insert/detach -
  141.         /window=(title="''node' DECterm",icon="''node'")
  142. $ exit ($status)
  143.