Piper's Pit BBS/FTP: ibm 0010 - 0019/ibm0010-0019/ibm0010.tar/ibm0010/REFLECT.ZIP/DEMO3.DCL

Text File | 1989-02-14 | 1.3 KB | 48 lines

$!  DEMO3.DCL        HOST BACKUP CONTROL OF REFLECTION
$!
$!  This file, once transferred to the VAX, must be renamed changing
$!    the .DCL extension to a .COM extension.
$!
$!    Command file to start a Reflection PC backup.
$!
$!    Parameters:
$!
$!       p1 - the terminal port of the PC to backup (e.g. TTA2:)
$!
$!    To execute from batch:
$!
$!       submit/parameters=(<terminal>) backup
$!
$!    n.b. For this command file to function correctly,
$!         - the user must be logged off the system
$!         - the user must be running Reflection on his/her PC
$!         - the command file must be executed from an account with
$!           SYSPRV privlege or the protection of the terminal port
$!           must be changed.
$!         - a foreign command 'vaxlink' must be defined to run vaxlink
$!
$! setup  reflection command
$!
$ esc[0,8] = %X1B
$ esc_seq = esc  + "&oC" + "backup \*.* /s"
$!
$! open the terminal port and send command
$!
$ open/write $tty 'p1
$ write $tty esc_seq
$!
$! read the host startup sequence and toss it
$!
$ read/prompt="" $tty host_startup_seq
$!
$! redefine sys$input (used by vaxlink for file transfer) to the tty port
$!
$ define/user sys$input $tty
$!
$! run the file transfer program (change to 'vaxlink e' for 8-bit protocol)
$!
$ vaxlink
$!
$ close $tty
$ exit