File: decterm.com

package info (click to toggle)
dnprogs 2.52
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 3,644 kB
  • ctags: 4,021
  • sloc: ansic: 26,737; cpp: 10,666; makefile: 832; sh: 537; awk: 13
file content (16 lines) | stat: -rw-r--r-- 483 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
$! Example "DECNET" task for dntask
$!
$! Put this command procedure in your SYS$LOGIN directory and
$! call it from Linux using the command 
$!    dntask myhost::decterm
$!
$ if f$mode() .eqs. "NETWORK" then $ define/nolog sys$output sys$net
$!
$ remnode=f$element(0, ":", "''f$trnlnm("sys$rem_node")'")
$ set display/create/node='remnode'
$ create/term/detach
$!
$! NOTE: This write is essential to the DECnet protocol.
$!
$ write sys$output "DECterm started on ''remnode'"
$ exit